I'd like to use a variable (X_minutes) with Application.OnTime Now + TimeValue("00:15:00")

[Photomofo]

I have a code that is currently running every 15 minutes on a continuous basis. It's working fine but I'd like to have the option of running it more or less frequently. Is this possible?

Ahh... Got it. You have to format the input.

X_Minutes = "" & "00:" & X_Minutes & ":00" & ""

Sub Run_Rabbit_Run()

Dim X_Minutes As String

Call EAT_ME

X_Minutes = Sheets("Index").Range("B4")

Application.OnTime Now + TimeValue(X_Minutes), "Run_Rabbit_Run"

End Sub

 

[Michael M]

UNTESTED

Application.OnTime Now + TimeValue("00:" & X_Minutes & ":00"), "Run_Rabbit_Run"

 

[Rick Rothstein]

Alternately, you can use the TimeSerial function...

Application.OnTime Now + TimeSerial(0, X_Minutes, 0), "Run_Rabbit_Run"

 

[Photomofo]

Thanks Michael... That's essentially what I did.

Thanks Rick... That solution would clean up the code.