View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default Spash screen on a Mac?

John,

The following works fine for me in Windows. I don't know about a Mac. In
standard code module, use

Sub KillTheForm()
Unload UserForm1 ' <<< Change Form Name
End Sub

In the ThisWorkbook module, use

Private Sub Workbook_Open()
' kill the form in 5 seconds
Application.OnTime Now + TimeSerial(0, 0, 5), "KillTheForm", , True
UserForm1.Show ' <<< Change Form Name
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)




"robotman" wrote in message
oups.com...
I have created a small form and routine that starts when a workbook is
opened to briefly displays a "splash screen" and then disappear.

This works great on a PC, but requires that I display the form as non-
modal. Since macs can only display forms as modal, the form will
appear, but then just freezes.

Anyone have any ideas on how to create a timed splash screen that
works on a mac?

Thanks.

John