VBA - popup question
Post date: May 17, 2011 9:40:57 PM
Sub cancel_data()
'
' cancel_data Macro
' Macro registrata il 18/02/2009 da Roberto Felicini
'
Dim Risp As Integer
Risp = MsgBox("Do you want delete all data?", 1 + 48, "conai")
If Risp = 1 Then
Application.ScreenUpdating = False
Range("A12").Select
Application.ScreenUpdating = True
Else
Exit Sub
End If
End Sub