need help me in excel-vba
- by aos
Private Sub cmdClear_Click()
Dim Confirm As Integer
Confirm = MsgBox("Are you sure you want clear this Sheet?", vbYesNo, "WARNING: Date Changed")
If Confirm = 6 Then
Sheets("OPV").Activate
'Sheets("OPV").Activate
Sheets("OPV").Range("B4:BZ1000").ClearContents
Sheets("OPV").Range("B4:BZ1000").Interior.Pattern = xlNone
Sheets("OPV").Activate
Sheets("OPV").Range("B4").Activate
MsgBox " Done .. ", vbInformation, "Clear ......"
End If
End Sub