I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros somewhere?

Thanks so much.

bman342 wrote:
I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros somewhere?

Thanks so much.


if MsgBox ("Message", vbYesNo) = vbYes then

.... macro

end if

bman342 wrote:
I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros somewhere?

Thanks so much.

Try This:

Msg = MsgBox("Your Question For User",vbYesNo,)
If Msg = vbNo Then Exist Sub
If Msg = vbYes Then Your Macro

Hi Bman342,

Try:

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

res = MsgBox(Prompt:="Do you wish to run the Macro?", _
Buttons:=vbYesNo + vbQuestion)

If res = vbNo Then Exit Sub

'Your code

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


---
Regards,
Norman



"bman342" wrote in message
...
I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros
somewhere?

Thanks so much.

dim vRep as Variant
vRep = Msgbox("Do you want to continue",vbYesNo)
if vRep = vbYes then
<do something
end if

HTH
--
AP

"bman342" a écrit dans le message de
news: ...
I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros
somewhere?

Thanks so much.

Hi Bman342,

Alternatively, try:

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

res = MsgBox(Prompt:="Do you wish to run the Macro?", _
Buttons:=vbYesNo + vbQuestion)

If res = vbYes Then
Call myMacro
End If

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


---
Regards,
Norman


"bman342" wrote in message
...
I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros
somewhere?

Thanks so much.

Works fine. Much thanks to both.

"Norman Jones" wrote:

Hi Bman342,

Alternatively, try:

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

res = MsgBox(Prompt:="Do you wish to run the Macro?", _
Buttons:=vbYesNo + vbQuestion)

If res = vbYes Then
Call myMacro
End If

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


---
Regards,
Norman


"bman342" wrote in message
...
I need a simple Yes/No dialog box.
If the User clicks "Yes" it runs a macro that I have already recorded.
If "No" it closes the macro.

Is there a trusted public library of these types of basic macros
somewhere?

Thanks so much.