try extracting from:

Dim response
response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel)
If response < 2 Then
For i = 1 To Worksheets.Count + 3
Range("Q" & i + 10) = ""
Next
End If

that should help

bbc1 Wrote:
Have a button on worksheet that clears certain cells on the sheet, would
like
that a message box pops up when pressed asking user for confirmation,
have
added below to the script on button but it clears cells regardless
wether you
say O/k or cancel need reposne to O/k "clears cells" or cancel " does
not
clear cells"
Dim response As Long
response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel)
'
Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select
Range("H2").Activate
Selection.ClearContents
Range("A2").Select
End Sub


--
Bryan Hessey
------------------------------------------------------------------------
Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059
View this thread: http://www.excelforum.com/showthread...hreadid=395724