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
I apologize Jerid, but how do I insert this into, "ThisWorkbook module"?
Thanks again I really appreciate it,
Sean
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.
Thanks alot Jerid, I figured it out, it works like a charm I love it!
It works, except the "Please Read" part