vlookup 400 error

[bluedragon2]

Can anyone explain the errors of my ways

I am getting a 400 error when the vlookup does not find a match:

a = 0
t = 1
For i = 10 To 110

z = WorksheetFunction.VLookup(Cells(i, 1).Value, Range("B1:B63&quot, 1, 0)
On Error GoTo 0
If z = 0 Then
a = i - 9
Else
Cells(t, 3).Value = a
r = 1
For x = 4 To 10
Cells(t, x).Value = Cells(r, 1).Value
r = r + 1
Next x
t = t + 1
Exit Sub
End If
Next i

Thanks



[Blue]Blue[/Blue] [Dragon]

If I wasn't Blue, I would just be a Dragon...

 

[bluedragon2]

One little change in there:

a = 0
t = 1
For i = 10 To 110

z = WorksheetFunction.VLookup(Cells(i, 1).Value, Range("B1:B63&quot, 1, 0)
On Error GoTo 0
If z > 0 Then
a = i - 9
Else
Cells(t, 3).Value = a
r = 1
For x = 4 To 10
Cells(t, x).Value = Cells(r, 1).Value
r = r + 1
Next x
t = t + 1
Exit Sub
End If
Next i


[Blue]Blue[/Blue] [Dragon]

If I wasn't Blue, I would just be a Dragon...

 

[bluedragon2]

Actually, I found a way around it.

Thanks though



[Blue]Blue[/Blue] [Dragon]

If I wasn't Blue, I would just be a Dragon...