Anyone...I would like to add a message box to my code that will prompt the
user with a "Yes" or "No" to confirm running a macro when the user clicks the
command button. If YES, then the macro resumes; however, if NO, then the
macros stops.

Thanks in advance...Andy

One way:

Dim nResult As Long
nResult = MsgBox( _
Prompt:="Really run this macro?", _
Buttons:=vbYesNo)
If nResult = vbYes Then
'Rest of macro macro
MsgBox "OK"
End If



In article ,
Anolan wrote:

Anyone...I would like to add a message box to my code that will prompt the
user with a "Yes" or "No" to confirm running a macro when the user clicks the
command button. If YES, then the macro resumes; however, if NO, then the
macros stops.

Thanks in advance...Andy

I tried this and the macro still runs even when you select NO. can anyone
help. Thanks

"JE McGimpsey" wrote:

One way:

Dim nResult As Long
nResult = MsgBox( _
Prompt:="Really run this macro?", _
Buttons:=vbYesNo)
If nResult = vbYes Then
'Rest of macro macro
MsgBox "OK"
End If



In article ,
Anolan wrote:

Anyone...I would like to add a message box to my code that will prompt the
user with a "Yes" or "No" to confirm running a macro when the user clicks the
command button. If YES, then the macro resumes; however, if NO, then the
macros stops.

Thanks in advance...Andy

Did you put the rest of your macro where I put

'Rest of macro

, i.e., within the If...End If structure?

Or are you saying that the Msgbox "OK" line was executed even if you
clicked NO??


In article ,
"Curt D." wrote:

I tried this and the macro still runs even when you select NO. can anyone
help. Thanks

I think J.E. hit the nail on the head. You didn't put your code in the correct
spot following his suggestion.

But maybe you could change the code just a bit:

Dim nResult As Long
nResult = MsgBox( _
Prompt:="Really run this macro?", _
Buttons:=vbYesNo)
If nResult = vbno Then
exit sub
End If

'rest of macro goes here now



Curt D. wrote:

I tried this and the macro still runs even when you select NO. can anyone
help. Thanks

"JE McGimpsey" wrote:

One way:

Dim nResult As Long
nResult = MsgBox( _
Prompt:="Really run this macro?", _
Buttons:=vbYesNo)
If nResult = vbYes Then
'Rest of macro macro
MsgBox "OK"
End If



In article ,
Anolan wrote:

Anyone...I would like to add a message box to my code that will prompt the
user with a "Yes" or "No" to confirm running a macro when the user clicks the
command button. If YES, then the macro resumes; however, if NO, then the
macros stops.

Thanks in advance...Andy


--

Dave Peterson