splash screen

[joacro]

Hi there,

Hope someone can help.

I need to create a splash screen that will open on start up of workbook.

This splash screen is merely to remind the user to enable macros

What i want to do on this splash screen is provide a different quote everytime it opens

ex: Reach for the stars
Keep going etc

This should change everytime a user opens the work book.

Thanx in advance

 

[machopicho]

Try this:

Private Sub Workbook_Open()
nn = CInt(Int((5 * Rnd()) + 1))
Select Case nn
Case Is = 1
MsgBox ("Reach for the stars")
Case Is = 2
MsgBox ("Keep going")
Case Is = 3
MsgBox ("xxxxxxxx")
Case Is = 4
MsgBox ("yyyyyy")
Case Is = 5
MsgBox ("zzzzzzzzzzz")
End Select
End Sub

Put this codes in VBA editor in Workbook module

 

[JoeMo]

Be aware that if the User has not enabled macros, the splash screen will not show when the workbook opens!

 

[AusSteelMan]

Hi there joacro,

I found this in the last few days.

http://www.mrexcel.com/forum/showthread.php?t=109769

The method appears common, but in post #13 there is a link to another page, where you will find an example for download. The site and the comments in the code explain it well.

There is even an option to change the type of hidden sheet (Hidden vs. VeryHidden).

I'd say it is exactly what you are after and is worth having a play with to really see how it works.

Good luck and regards,
ASM