Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

pop-up window in a spreadsheet???? 3

Status
Not open for further replies.

shrewd

Marine/Ocean
Joined
Oct 3, 2007
Messages
11
HI all....
The forum is so active with muti disciplinary ppl....Gud stuff.
Here i need a favour...

I made a excel spreadsheet.I want, once the spreadsheet opens,a pop-up window should come which will be showing "NOTE......These are the following assumptions 1.......2......so on." The user must read this before he gets onto work with the spreadsheet. looks litbit dynamic activity,but.....

Do someone suggests me ,how can i succeed in this activity
 
Paste the following sample into the workbook code pane
Code:
Private Sub Workbook_Open()
Const MSG As String = "NOTE......These are the following assumptions" _
                      & vbCrLf & "1......." _
                      & vbCrLf & "2......." _
                      & vbCrLf & "so on."
MsgBox MSG, vbInformation, "Assumptions"
End Sub
 
Tht above may be self-explanatory, but just to make sure you paste it in the right place:

Tools / Macr / VBA editor

Double Click on "this workbook" in project explorer upper left to open the workbook code window.

On the code window top toward left, change "general" to "workbook"

On the code window toward the right, select open.

It will autogenerate
Private Sub Workbook_Open()
End Sub

Paste the above code in there (deleting redundant parts).


=====================================
Eng-tips forums: The best place on the web for engineering discussions.
 
Sorry, I guess I made that more complicated than need be. Should be able to paste into the general code window for the workbook and the subroutine heading takes care of the rest.

=====================================
Eng-tips forums: The best place on the web for engineering discussions.
 
Fantastic .............awsum.
g8 job.....Thanks buddy...
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top