Ending a Macro at a specified time

[Kourada]

How do I get a macro to end after 1 minute of running. The macro was written to run a refresh on a Web Query (excel 2000), but if the macro is searcing for the data for over 1 minute, I would rather it stopped looking, and started all over again.

Thanks
Hios@interaccess.com

[Al Chara]

Try using the NOW and ONTIME functions.

[Kourada]

I Understand how to use the NOW and ONTIME functions to start a macro, but how do I use them to stop a macro from running. I think a simple example is all I need to figure it out.

Thanks for the quick response.

[Al Chara]

Try the following:

Dim StartTime, Duration As Integer
StartTime = Second(Now)
Duration = 3
Do
counter = counter + 1
Loop Until Second(Now) > StartTime + Duration
MsgBox "This macro looped " & counter & " times in " & Duration & " seconds"

[Kourada]

Works Great!

Thanks again for your help.