Message Box using macro

[Designingsally]

Hey Experts

I want to create a message box with three buttons- YES NO and ABORT.

When I click ABORT then macros shd stop running or quit carrying the
operations and return to document.

Is that possible?

Pls reply


Sally

 

[macropod]

Hi Sally,

Try something along the lines of:

Sub Demo()
Dim Response
Response = MsgBox("What do you want destroy the world?", vbYesNoCancel)
Select Case Response
Case vbCancel
End
Case vbNo
MsgBox "Well done", vbExclamation
Case vbYes
MsgBox "Sorry, but that option isn't available today", vbCritical
End Select
End Sub

 

[Designingsally]

Thanks MacroPod. It helped me.
--
I believe in Hope.

DesigningSally

Hi Sally,

Try something along the lines of:

Sub Demo()
Dim Response
Response = MsgBox("What do you want destroy the world?", vbYesNoCancel)
Select Case Response
Case vbCancel
End
Case vbNo
MsgBox "Well done", vbExclamation
Case vbYes
MsgBox "Sorry, but that option isn't available today", vbCritical
End Select
End Sub