View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Mike H Mike H is offline
external usenet poster
 
Posts: 11,501
Default Pop up message box?

Hi,
Alt+F11 to open vb editor. Double click 'this workbook' and paste this in on
the right. The messagebox dies after 4 seconds if a button isn't pressed.


Private Sub Workbook_Open()
Dim MyBox As Object
Dim Duration As Long
Duration = 4 'Seconds
Msg = "Save workbook as ******"
Ttl = " Your Title"
Set MyBox = CreateObject("WScript.Shell")
response = MyBox.PoPup(Msg, Duration, Ttl, vbOKCancel)
End Sub

Mike
"Graciegirl" wrote:

Is there a way to create a pop up message in Excel upon opening a workbook?
I want to create something along the lines of "resave this file as xxxx".
--
Gracie