Couple of vlookup queries

[T De Villiers]

Hi,
Two things:

1) The following doesn't re-calculate as I change the inputs,
I have to F2 and press enter each time
2) Also if there is an error it doesnt pick up the new lookup,
is ("Desktop\My Documents\Book10!Sheet1!a1:b3") valid?

Many Thanks


Function taz(a) As Variant
Dim res As Variant
res = Application.VLookup(a, Range("Sheet1!a1:b3"), 2, 0)

If IsError(res) Then
res = Application.VLookup(a, Range("Desktop\My
Documents\Book10!Sheet1!a1:b3"), 2, 0)
End If

If IsError(res) Then
taz = "Not found"
Else
taz = res
End If

End Function

 

[Guest]

Try putting...

Application.Volatile

right after your Dim statement.

HTH,