Need Help with Code - TimeValue

[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

 

[Dave Peterson]

Depending on what was in the cell:

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

(B5 held a time???)