Change line:
With Worksheets("Data")
and replace "Data" with your worksheet name.

HTH
--
AP

"grant606" a écrit
dans le message de news:
...

Dear Ardus,

Started programme as instructed; following messages appeared:

On Run CopyValue, "Runtime Error '9' Subscript out of range"

On Run StopTimer, "Runtime Error '104' Method 'OnTime' of
object_Application failed"

Any suggestions, please?

Regards,

Grant.


--
grant606
------------------------------------------------------------------------
grant606's Profile:
http://www.excelforum.com/member.php...o&userid=35077
View this thread: http://www.excelforum.com/showthread...hreadid=548264