Timer function

J

Jan Kronsell

Hi NG!

I know I can use the OnTime function to make something happen at a given
time, or in a certain timeinterval, but is there anyway I can make something
happen in recurring intervals, like once every minute as long as the
spreadsheet is open - and still be able to use the sheet.

Jan
 
P

pfsardella

Watch the linewrap. Place in the WorkBook_Open event,

Const dblOneMinute As Double = 0.00069444444444
Dim intA as Integer

For intA = 0 To 1200
Application.OnTime Now + (intA * dblOneMinute),
"YourProcedure"
Next intA

HTH
Paul
 
Top