Here is something I have . Paste this code into "This Workbook".

[vba]Option Explicit

Private Sub Workbook_Open()

Call OnTime

End Sub

Public Sub OnTime()

'http://www.vbaexpress.com/forum/showthread.php?t=46682
On Error Resume Next
If Application.WindowState = xlMinimized Then
Application.WindowState = xlMaximized
End If
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="ThisWorkbook.OnTime" ' set to 01 seconds

End Sub[/vba]