Auto Update

[.Justin]

Hi there, I have a macro that i would like to run automaticley every day 10 seconds? I can;t work out how to do this... Would someone be able to help me please?

Excel Version 2007

 

[HaHoBe]

Hi, Justin,

maybe Application.OnTime can help:

'Code for ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Call EndProcessing
End Sub

Private Sub Workbook_Open()
    StartProcessing
End Sub

'module
Public Const ciIntervall As Integer = 10
Public Const dsMacro As String = "YourMacro"
Public gdNextTime As Double
Public gvar As Variant

Sub StartProcessing()
    gdNextTime = Now + TimeSerial(0, 0, ciIntervall)
    Application.OnTime _
            gdNextTime, _
            dsMacro
End Sub

Sub YourMacro()
    'your code
    Call StartProcessing
End Sub

Sub EndProcessing()
    On Error Resume Next
    Application.OnTime _
            earliesttime:=gdNextTime, _
            procedure:=dsMacro, _
            schedule:=False
    Application.Calculation = gvar
End Sub

Ciao,
Holger