Hi Martin
code looks o.k.

--
Regards
Frank Kabel
Frankfurt, Germany


Martin wrote:
Using win98 and xl2000. I am extracting data from websites.
The code runs once a minute.

In the last 10 minutes, the following code appears to have taken
"NasdaqPosColon" from the value in
"NasdaqRng.Offset(0, 2).Value" on two occasions,
and from the value in
"NasdaqRng.Offset(0, 3).Value" on the other eight.

Am I looking at corruption in the workbook or is there something
intrinsically wrong with the code?

'*****Code start********
Dim NasdaqRng As Range
Dim NasdaqPosColon As Integer

Set NasdaqRng = AIE01.[a65536].End(xlUp).Offset(1, 0)

NasdaqPosColon = InStr(1, NasdaqRng.Offset(0, 2).Value, ":")

If NasdaqPosColon < 0 Then

'More code...

'*****Code finish********


Thank you
Martin