Look at Application.OnTime

eg.

Dim col As Integer

Sub StartItUp()
col = 2
Application.OnTime Now + TimeSerial(0, 0, 10), "DoCopy"
End Sub


Sub TimedCopy()
Sheet1.Columns(col).Copy Sheet1.Columns(col + 1)
col = col + 1
If col < 100 Then
Application.OnTime Now + TimeSerial(0, 10, 0), "DoCopy"
End If
End Sub


Tim

"ryguy7272" wrote in message
...
How can I create a macro that calculates a time interval, say 10 seconds,
and
then copies all data from column B to column C, then waits 10 minutes,
then
copies columns C to D, waits 10 minutes, then copies D to E, and so on and
so
forth.

Thanks!


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.