Need Help with Code - TimeValue

  • Thread starter Thread starter Donnie Stone
  • Start date Start date
D

Donnie Stone

I need help with the following code. The code as is works great, but I'm
looking for a way to control the TimeValue("00:02:00") based on a value
entered in cell B5 in worksheet1.

Is this doable?

Thanks in advance for the help.

Dim dNext As Date

Sub StartDoingIt()
'calculate when code should run again
dNext = Now + TimeValue("00:02:00")
'set on time event to trigger running
Application.OnTime dNext, "StartDoingIt"
' whatever you want to do
PasteToArchive
End Sub
 
Depending on what was in the cell:

dNext = Now + worksheets("sheet1").range("B5").value

(B5 held a time???)
 
Back
Top