On Wed, 14 Dec 2005 21:16:02 -0800, PY & Associates wrote:

Try putting either of the following inbetween each copy and paste cycle

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now())+30
Application.Wait TimeSerial(0, 0, 30)
You can get rid of the starttimer and stoptime subroutines.
Don't think you need that.

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now())+30

The above causes a syntax error and this-

Application.Wait TimeSerial(0, 0, 30)

.....pastes the first column and then hangs, even if I eliminate the
starttimer and stoptime subroutines.

There must be a simpler way of delaying an operation such as mine?

Could a timer be placed in Excel on a hidden form?

Something like this:-

Private Sub Form-Load()
Form1.Show
Timer1.Interval = 30000 '30 seconds
Timer1.Enabled = True
End Sub

I'm afraid that I am not very hot on VB, but I know the solution has got to
be simple? That is why I haven't given up yet.