Sorry Norman

Your codes work. Thanks.

Best Regards

Varne M

"Norman Jones" wrote:

Hi N,

Regardless of yes or no "a1" is deleted. Please check. Thanks.

That is not my experience.

If the user selects the 'No' option, the Exit Sub instruction
prevents the processing of subsequent instructions.


---
Regards,
Norman


"Varne" wrote in message
...
Hi Norman

Regardless of yes or no "a1" is deleted. Please check. Thanks.

Varne M

"Norman Jones" wrote:

Hi M,

Try:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue")

If res = vbNo Then
Exit Sub
End If
ActiveSheet.Range("A1").ClearContents

End Sub
'<<=============



---
Regards,
Norman