IT/Excel/huge nerd

NYSpeed Automotive NYSpeed Off Topic
9

if anyone cares, set a macro in vb (altf11)

                Private NextSwitch As Date
               
                '***** HERE IS WHERE YOU SET THE VARIABLES (not case sensitive)
                Const File1 As String = "Filename 1.xls"
                Const File2 As String = "Filename 2.xls"
                Const TimeInterval As String = "00:02:00"

'“hh:mm:ss”

                Sub StartSwitching()
                 NextSwitch = Now + TimeValue(TimeInterval) 'current time + 2 minutes, change as needed
                 Application.OnTime EarliestTime:=NextSwitch, Procedure:="ShowNext"
                End Sub
               
                Sub EndSwitching()
                 Application.OnTime EarliestTime:=NextSwitch, Procedure:="ShowNext", Schedule:=False
                End Sub
               
                Private Sub ShowNext()
                 If LCase(ActiveWorkbook.Name) = LCase(File1) Then
                  Workbooks(File2).Activate
                 Else
                  Workbooks(File1).Activate
                 End If
                 NextSwitch = Now + TimeValue(TimeInterval)
                 Application.OnTime EarliestTime:=NextSwitch, Procedure:="ShowNext"
                End Sub