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


"Varne" wrote in message
...
Hi Norman

Thanks.

I am a little slow to VB so please explain somthing.

My codes are

Sub Deleter

Range("a1").select
Selection.ClearContents

End Sub

Now Norman How I annex my codes with yours? If I start at where you
mention
my computer does not pick up the Macro?

Please reply.

Regards

M Varnendra