Try this

Public RunWhen As Double

Sub Capture()
Cells(1, 1).Copy Destination:=Cells(65536, 2).End(xlUp).Offset(1,
0)
RunWhen = Now + TimeSerial(0, 0, Cells(1, 3))
Application.OnTime RunWhen, "Capture", , True
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=545792