Corrupted workbook or code?

[Martin]

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

 

[Frank Kabel]

Hi Martin
code looks o.k.

 

[Martin]

Thanks Frank,

I think I just needed another opinion after having puzzled over
it since 8:30am.

Transferred all to text and rebuilt the workbook, been
working fine for the last 20 minutes. Problem solved I think.

Thanks again

Martin