Quote Originally Posted by Ringhal
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]
That was perfect, by the way. Didnt want to leave you hanging. I already have an on-time and everything all setup but the application.windowstate=xlmaximized was just what i needed to steal focus & make sure my macros were running properly regardless of what the PC was doing.