That is also ours.
2 to 17 (should be 16) is because we used cells(2, i)
1 to 15 is because we used cells(2, i+1) here

you DO NOT need two 'timed' action.
you only need this one.

"Saxman" wrote in message
...
On Tue, 20 Dec 2005 22:01:03 -0800, PY & Associates wrote:

After reading your posts so many times, we think this is what you want
for i = 1 to 15
read the web
take snapshot
write to cells(2, i+1) 'i+1 = B, i+2 = C, etc
wait 30 sec
next i

your first post failed because there was no waiting, you put all 15
write in
one operation.


This works fine with the help of another poster.

Sub The_Sub()
For i = 2 to 17
Sheets("Latest Snapshot").Range("J3:J17").Copy
Sheets("Chartdata").cells(2,i).PasteSpecial Paste:=xlPasteValues
Application.Wait (Now + TimeValue("0:00:30"))
Next i
End sub

For i = 2 to 17, as I need the first column for chart reference.

I just need to incorporate this routine into the main macro somehow. I
dare say it will be hit and miss, as I have two timed events running
simultaneously. Eventually, if I get things running smoothly (with your
help!), both events will be set to the same time interval.

Thanks!!

Thanks for the feedback.