Are you sure you want to proceed dialog box

[simonplus]

I need an "Are you sure you want to proceed?" dialog box to pop up every time a run the macro below with the Yes and No commands.

If Yes, macro runs. If No, macro doesn't run.

Please Login or Register  to view this content.

Please help!

Thanks.

SZ

[sintek]

Hi SZ

Try this:

Please Login or Register  to view this content.

[simonplus]

Thank you for your response!

When I click the button, I do get a dialog box; however, when I press yes, the clear feature does not fulfill its purpose.

Thanks again,

SZ

[Richard Buttrey]

Hi

Try

Please Login or Register  to view this content.

[willxue]

Option Explicit
Sub RemoveConstants()
Dim Answer As Variant
Dim rConstants As Range
Answer = MsgBox("Are you sure you want to proceed?", vbYesNo)
If Answer = vbYes Then
Set rConstants = Sheet1.Range("O10:ad109").SpecialCells(xlCellTypeConstants)
rConstants.ClearContents
End If
End Sub

[sintek]

@ willxue

Nice catch on piece of code I omitted...Long day...

Please Login or Register  to view this content.

[simonplus]

It works now..

Thank you all!

[Richard Buttrey]

@ willxue

Nice catch on piece of code I omitted...Long day...

Please Login or Register  to view this content.

...which I'd effectively caught with #4 and simplified further...