REPEAT SOME ACTION IN MACRO

[SURESH]

Hi dear friends,

its an simple question for you....
i want to repeat some action in my excel workbook at every 5 minuts.. by the
help of VB

just like

Private Sub Workbook_Open()
Application.ScreenUpdating = false
dim ST, NT as date
ST = timer
nt = st + TimeValue("00:05:00")
loop
if nt = timer then
call XXX
end if
do events
end loop
End Sub

can anyone help me??

thanks in advance

suresh tp

 

[Rich_z]

Code:
--------------------

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "OnTimer"
End Sub

Sub OnTimer
dim ST as Date, NT as date
Application.ScreenUpdating = false
'*
'* Your code here
'*
DoEvents
'*
'* Reschedule the interrupt
'*
Application.OnTime Now + TimeValue("00:00:05"), "OnTimer"
Application.ScreenUpdating = True
End Sub

--------------------


Regards

Rich

 

[Dave Peterson]

If you want to read more about Excel's VBA OnTime method, visit Chip Pearson's
site:
http://www.cpearson.com/excel/ontime.htm