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