Snasui Excel Forum

Code: Select all

Sub Rectangle2_Click()
Dim Msg, Style, Title, Response
          Msg = "¤Ø³µéͧ¡ÒÃź¢éÍÁÙÅËÃ×ÍäÁè?"   ' Define message.
          Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
          Title = "¤Ø³µéͧ¡ÒÃź¢éÍÁÙÅËÃ×ÍäÁè"  ' Define title.
        ' Display message.
          Response = MsgBox(Msg, Style, Title)
          If Response = vbYes Then    ' User chose Yes.
    
 Range("H20").MergeArea.ClearContents
 Range("H25").MergeArea.ClearContents
 Range("O29").MergeArea.ClearContents
 Range("O31").MergeArea.ClearContents
 Range("AF31").MergeArea.ClearContents
 Range("K33").MergeArea.ClearContents
 Range("AP25").MergeArea.ClearContents
 Range("AP28").MergeArea.ClearContents
 Range("A40").MergeArea.ClearContents
 Range("V40").MergeArea.ClearContents
 Range("V42").MergeArea.ClearContents
 Range("V44").MergeArea.ClearContents
 Range("V46").MergeArea.ClearContents
 Range("V48").MergeArea.ClearContents
 Range("V50").MergeArea.ClearContents
 Range("AP40").MergeArea.ClearContents
 Range("A56").MergeArea.ClearContents
 Range("V56").MergeArea.ClearContents
 Range("V58").MergeArea.ClearContents
 Range("V60").MergeArea.ClearContents
 Range("V62").MergeArea.ClearContents
 Range("V64").MergeArea.ClearContents
 Range("V66").MergeArea.ClearContents
 Range("AP56").MergeArea.ClearContents
 Range("A74").MergeArea.ClearContents
Range("A76").MergeArea.ClearContents
Range("O72").MergeArea.ClearContents
Range("H74").MergeArea.ClearContents
Range("AP68").MergeArea.ClearContents
Range("AP70").MergeArea.ClearContents
Range("AP82").MergeArea.ClearContents
 
 
                    End If
End Sub

Code: Select all

Application.Calculation = xlCalculationManual
'Your code for clear contents
Application.Calculation = xlCalculationAutomatic