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

Tom Schreiner · Mar 24th, 2002, 11:13 AM

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 · Mar 24th, 2002, 11:58 AM

Hi TS Tom - how's this?

Code:

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

Tom Schreiner · Mar 24th, 2002, 12:16 PM

Thanks DK
I will try it out.
Tom

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 24th, 2002, 11:13 AM	#1
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	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 ]

Mar 24th, 2002, 12:16 PM	#3
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Thanks DK I will try it out. Tom