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

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" wrote in message
...
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

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

--
HTH...

Jim Thomlinson


"Chris D" wrote:

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

Thanks guys, this works!

regards,

Chris

"Harald Staff" wrote:

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" wrote in message
...
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

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

"Chris D" wrote:

Thanks guys, this works!

regards,

Chris

"Harald Staff" wrote:

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" wrote in message
...
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

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


"Chris D" wrote in message
...
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

"Chris D" wrote:

Thanks guys, this works!

regards,

Chris

"Harald Staff" wrote:

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" wrote in message
...
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