IsError function from VBA6.3 to v6.0

Hi All, I'm having problems with a small VBA script that I wrote in v6.3 but need to implement in 6.0. Excel 2002 -> 2000.

The following code works fine in the later version:

For i = 2 To LastRow
' select the next row based on loop
vString = "A" & i

If IsError(Application.VLookup(Range(vString).Value, vRange, 31, False)) Then

Y = "NEW"
Else
Y = Application.VLookup(Range(vString).Value, vRange, 31, False)
End If
' write the result to the active workbook
Cells(i, 31).Value = Y
Next i

But won't work in the earlier version as there's a type mismatch at the If Iserror ... line.

Any ideas why or thoughts on a workaround

Thanks,

Steve.

Thanks Andy,

vRange covers the whole table of the sheet being checked. i.e. A1:AE2000 (depending on the last row used).

OldFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select last week's file")

Workbooks.Open (OldFN)
OldLastRow = Range("A65536").End(xlUp).Row ' last used row of old sheet
vRange = Range("A2", Cells(OldLastRow, 31))

This all works fine on the laptop! Briefly, the aim is as follows:

OldFN is last week's list of outstanding cases that were allocated to specific people. Do a Vlookup to maintain those cases that also appear on this week's list (i.e. didn't get paid) by returning column 31 from vRange (the location of the handler ID) or put "NEW" in the cell to indicate the case needs allocating.

Is that a bit clearer Sorry, really should have included that snippet earlier.

Steve.

It does on my laptop : works fine - but on a desktop using Excel 2000, I get a Type Mismatch on the If IsError line.

I'm totally stumped!

Thanks for trying!

Steve.

I've done that - many thanks for your time Andy; much appreciated.

Steve.

Genius ... thank you!

Steve.