Excel Mac - Application.OnTime error

[Seorch]

Hi,

I'm about to create a splash screen for an Excel application. I've noticed many examples using "Application.OnTime" to close the splash screen after a few sec. I'm on a Mac (Excel 2011) and this solutions doesn't work. Is there another way of achieving this that works on both PC and Mac?

/Johan
www.seorch.me

 

[ZVI]

Hi and Welcome to MrExcel!
Have not MAC Excel, but hope this code works:

' Code of UserForm which is used as Splash Screen
Private Sub UserForm_Activate()
  
  Const Delay = 2 ' <-- 2 seconds delay, change to suit
  
  Dim X As Single
  
  ' Charge the unload time X
  X = Timer + Delay
  
  ' Wait
  While Timer < X
    DoEvents
  Wend
  
  ' Unload UserForm
  Unload Me
  
End Sub

Regards,

 

[Seorch]

Hi,

Thanks for the code. Have not tried it out yet. Will do. The solution I came up with was using a "Do - Until" loop.

Private Sub UserForm_Activate()
    EndTime = Now + TimeValue("00:00:5")
    
    Do
    'Empty
    Loop Until (Now >= EndTime)
    Unload Me
End Sub

Don't know if this solution is good or bad, but it works. What do you think?

 

[throtmorton]

Hi guys,

I've tried both of these, plus what works fine in my PC Excel 2010: Application.OnTime Now + TimeValue("00:00:05"), "KillForm", but nothing works on the Mac. The form appears upon open, but just won't close on any time interval.

Anybody have any other ideas?

Much appreciated,
Paul