I have a spreadsheet that displays information from lots of linked spreadsheets, and toggles between sheets every minute, but you should be able to modify the code slightly for what you want.
--- MACROS ---
' General Declarations
Public RunWhen As Double
Public Const cRunIntervalSeconds = 60 ' seconds between updates
Public Const cRunWhat = "UpdateLinks" ' name of procedure to run
Public Toggle As Double
' Ensure Timer Starts when Workbook is opened
'
Private Sub Auto_Open()
Call StartTimer
End Sub
' Timer Program
' Macro recorded 21/11/2007 by W. Sheldon
'
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalQuick)
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub
Sub UpdateLinks()
'
' Update data from external files
'
Application.ScreenUpdating = False
ActiveWorkbook.UpdateLink Name:= _
"
\\SPREADSHEET PATH AND NAME.xls", Type:= xlExcelLinks
Application.ScreenUpdating = True
End Sub