Hi Rob,

I have assumed that your start time is 17:28:00 so I have changed the
minutes to 27 to allow the first iteration to add 1 to become 28.

Also note that a space and underscore at the end of a line is a line break
in an other wise single line of code.

Dim i As Long

For i = 1 To 370
Application.OnTime _
TimeValue("17:" & 27 + i & ":00"), _
"CopyVolume" & i
Next i

--
Regards,

OssieMac


"Rob" wrote:

Hi,
Please will someone tell me (if possible) how to automatically increment the
times in the following example. I have got 370 times to enter in one minute
increments.

Sub StartTime()
Application.OnTime TimeValue("17:28:00"), "CopyVolume1"
Application.OnTime TimeValue("17:29:00"), "CopyVolume2"
Application.OnTime TimeValue("17:30:00"), "CopyVolume3"
End Sub

Thanks.