Simple Timer Help

[Resz7]

Hi everyone,
I'm new to timers so I could use help. Basically this timer runs every second and calls "main" sub. How can I increase "i" by 1 every time it runs? I would like it to read each cell in Column A every second. Thanks!

Sub Timer()

Application.OnTime Now + TimeValue("00:00:01"), "Main"
End Sub


Sub Main()
Dim i As Long
Dim x As String
i = 1

x = Worksheets("Sheet1").Cells(i, 1).Value

MsgBox x
Timer
End Sub

 

[mole999]

Sub Timer()  Application.OnTime Now + TimeValue("00:00:01"), "Main" End Sub   Sub Main() Dim i As Long Dim x As String i = 1 For i = 1 to 100 x = Worksheets("Sheet1").Cells(i, 1).Value Next i MsgBox x Timer End Sub

</pre>

 

[Resz7]

I got it to work this way:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Timer2()
Dim i As Long
Dim x As String
i = 1
Do
    x = Worksheets("Sheet1").Cells(i, 1).Value
    MsgBox x
    Sleep (1000) ' delay 1 second
    i = i + 1
Loop

End Sub

 

[Resz7]

Thanks!