How Do I Make Pop-up Windows in Excel?


Posted by Sean H. on October 16, 2001 7:47 AM

How can I make a pop-up window in Excel automatically pop-up when my .xls file is loaded? I just want a pop-up window which lists instructions on how to use the file.

Thank you kindly in advance,
Sean

Posted by Jerid on October 16, 2001 8:33 AM

This should so it for you. Copy this code into your ThisWorkbook module.

Private Sub Workbook_Open()
Dim sMessage As String

'Build Message
sMessage = sMessage & "Below you will find directions on the use of this Spreadsheet"
sMessage = sMessage & vbCrLf
sMessage = sMessage & "" 'Line 2
sMessage = sMessage & vbCrLf
sMessage = sMessage & "This is line 3 of 10"
sMessage = sMessage & vbCrLf
sMessage = sMessage & "" 'Line 4
sMessage = sMessage & vbCrLf
sMessage = sMessage & "This is line 5 of 10"
sMessage = sMessage & vbCrLf
sMessage = sMessage & "" 'Line 6
sMessage = sMessage & vbCrLf
sMessage = sMessage & "This is line 7 of 10"
sMessage = sMessage & vbCrLf
sMessage = sMessage & "" 'Line 8
sMessage = sMessage & vbCrLf
sMessage = sMessage & "This is line 9 of 10"
sMessage = sMessage & vbCrLf
sMessage = sMessage & "" 'Line 10

MsgBox sMessage, vbInformation, "Please Read"
End Sub

Jerid

Posted by Sean H. on October 16, 2001 8:40 AM

I apologize Jerid, but how do I insert this into, "ThisWorkbook module"?

Thanks again I really appreciate it,
Sean

Posted by Jerid on October 16, 2001 8:47 AM

I guess that Would be important.

1) Open Excel, Select Tools, Macros, Visual Basic Editor.

2) Find the project window and select ThisWorkbook, then click View, Code.

3) Copy my code into the big white window.

4) Close the Visual Basic Editor, and save and close your Excel Workbook.

The next time you open that Spreadsheet your message will be displayed.

Posted by Sean H. on October 16, 2001 8:47 AM

Thanks Jerid

Thanks alot Jerid, I figured it out, it works like a charm I love it!

Posted by Loren on October 16, 2001 11:16 AM

It works, except the "Please Read" part



Posted by Loren on October 16, 2001 11:23 AM

Never mind , I see it