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