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.