VBA code for Msgbox

[Chris D]

Hi,

I have the following code:
MsgBox "Calculating Takes a Moment, please wait...."

User has to press OK to proceed.
I would like to add under the existing line " please save file before
proceeding with this action, click Cancel to exit"
If the user selects "Cancel" then the sub is ended( somithing like: go to
end sub)
Can anyone give me the code?

thanks.

Chris

 

[Harald Staff]

Hi Chris

Sub demo()
Select Case MsgBox("You really reaaly should save this " & _
"before the lengthy process", vbYesNoCancel + vbInformation)
Case vbYes
ActiveWorkbook.Save
Case vbNo
'do nada
Case vbCancel
Exit Sub
End Select
MsgBox "procedure here"
End Sub


HTH. Best wishes Harald

 

[Jim Thomlinson]

If MsgBox("Calculating Takes a Moment, please wait. " & _
"Please save before continuing", vbOKCancel, "Proceed?") = vbOK Then
MsgBox "Save"
End If

 

[Chris D]

Thanks guys, this works!

regards,

Chris

Hi Chris

Sub demo()
Select Case MsgBox("You really reaaly should save this " & _
"before the lengthy process", vbYesNoCancel + vbInformation)
Case vbYes
ActiveWorkbook.Save
Case vbNo
'do nada
Case vbCancel
Exit Sub
End Select
MsgBox "procedure here"
End Sub


HTH. Best wishes Harald

 

[Chris D]

Still 1 question: in the blue bar in the popupboxes the text " Microsoft
Excel" is mentioned. Is it possible to change this into something like " My
Toy"?

thanks.

Chris

 

[Rick Rothstein \(MVP - VB\)]

Add the optional 3rd argument (Title) to the MsgBox function call....

Select Case MsgBox("You really really should save this before " & _
"the lengthy process", vbYesNoCancel + vbInformation, "My Toy")

Rick