How do I automatically run a macro every... Thanks DK!

[Legacy 98055]

Hi everyone!

I would appreciate it very much if someone could share some code which will start a two minute cycle when a workbook is opened.

This workbook will check a data source as soon as it is opened. I would like to make it able to repeat this task every two minutes.

Thanks!
This message was edited by TsTom on 2002-03-24 11:22

 

[dk]

Hi TS Tom - how's this?

Dim lngTimesMacroRan As Long

Sub CheckDataSource()
'Put your macro for checking the data source in here
'E.g.
Sheets("Sheet1").Cells(1, 1).Value = "The macro CheckDataSource has ran " & lngTimesMacroRan + 1 & " times."
lngTimesMacroRan = lngTimesMacroRan + 1
Application.OnTime Now + TimeValue("00:02:00"), "CheckDataSource"
End Sub

HTH,
D

 

[Legacy 98055]

Thanks DK
I will try it out.
Tom