simple macro to execute every 15 seconds

[eventrader]

I need a simple macro to execute every 15 seconds. The macro is to call two other macros every 15 seconds .Here is my code:

Sub ibstartstop()
'
' ibstartstop Macro
' Start stop running IB10 sec macro every 15 sec
'
' Keyboard Shortcut: Ctrl+x
'
Application.OnTime Now, "ib15sec"
dTime = Now + TimeValue("00:00:15")
Application.OnTime dTime, "ib15sec"
Application.OnTime dTime, "a"


End Sub

The macro starts fine and calls the other two macros, but does not repeat the process every 15 seconds.

PLEASE HELP

 

[Blade Hunter]

Your not looping it:

Sub ibstartstop()
'
' ibstartstop Macro
' Start stop running IB10 sec macro every 15 sec
'
' Keyboard Shortcut: Ctrl+x
'
do
Application.OnTime Now, "ib15sec"
dTime = Now + TimeValue("00:00:15")
Application.OnTime dTime, "ib15sec"
Application.OnTime dTime, "a"
loop

End Sub

 

[eventrader]

Thanks for your kind help.

When I add loop, i get the following error

Compile error: Loop without Do

please help.

 

[Blade Hunter]

Did you add the do as well?

Sub ibstartstop()
'
' ibstartstop Macro
' Start stop running IB10 sec macro every 15 sec
'
' Keyboard Shortcut: Ctrl+x
'
do
Application.OnTime Now, "ib15sec"
dTime = Now + TimeValue("00:00:15")
Application.OnTime dTime, "ib15sec"
Application.OnTime dTime, "a"
loop

End Sub

 

[eventrader]

Thanks. Now the spreadsheet gets an hour glass and stops responding.

 

[Blade Hunter]

Because it is always running, it runs and sits waiting for the 15 second mark and then runs the code. Upon completion it waits for 15 seconds and runs again.

 

[Blade Hunter]

Get rid of the do and the loop, at the end of the last macro it runs put this before the end sub

ibstartstop