Workbook Open MsgBox

[alexb]

Hi!

I have a message box that appears when ever I open an excel spreadsheet. this works fine.

however, is there any way that i can change the blue tool bar from where it says Microsoft Excel (blue background, white writing) to say my company name? Or indeed anything.

Thanks,

 

[Al Chara]

From the helpfile:

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If