Macro for Confirming Delete

C

COG

Hi all, I can create a button with a macro that will
clear the data in a preselected range - using the macro
recorder. However, when the button is clicked, I would
like a message to appear that says, "Are You Sure" and
have a "Yes" button, and a "No" button for the user to
click on - to verify clear the range or return to what
they were doing. I think this is a macro inside a macro
and I am not sure how to do this. Any HELP you can offer
would be appreciated. Ex - when you start to close an
Excel file you've entered data into, and haven't saved
it, a message will appear asking if you really want to
save changes. How can I create such a message with
options yes and no?
 
J

JulieD

Hi Cog

a message box will do what you're after

e.g.

sub yourexistingcode()

dim i as long

i = msgbox("Are you sure?",vbyesno,"Be very, very sure!")
if i = vbno then
msgbox "No data is to be deleted!",vbOkOnly,"Don't Delete Data"
'this is optional, just put here as an example
exit sub
end if

---your delete code here

end sub


Cheers
JulieD
 
C

Chip Pearson

Try something like

If MsgBox("Are you sure?", vbYesNo) = vbNo Then
Exit Sub
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
C

COG

Thank you for your help!
-----Original Message-----
Hi Cog

a message box will do what you're after

e.g.

sub yourexistingcode()

dim i as long

i = msgbox("Are you sure?",vbyesno,"Be very, very sure!")
if i = vbno then
msgbox "No data is to be
Click to expand...
deleted!",vbOkOnly,"Don't Delete Data"
 
G

Guest

Thank you for your help!
-----Original Message-----
Try something like

If MsgBox("Are you sure?", vbYesNo) = vbNo Then
Exit Sub
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com







.
Click to expand...
 
Top