Well lets see...
I doubt you need the CStr function in there and the range reference of Hoja1.Range("G3","I123") should really look like this:
Hoja1.Range("G3:I123")
This is my version of your formula:
Set Fn = Application.WorksheetFunction
Cells(F1, C1 + 2) = Fn.VLookup(Cells(F1, C1), Sheet1.Range("G3:I123"), 3, False)
Seems to work OK.
I'm assuming the "F1" and "C1" are simply variables and not cell references. That would be a whole nother problem.
Regards,
AaronThe Excel Logic Page
I think i know what the error is, the range as you mention it, works too, but it makes no difference. It generates the error when the Vlookup can't find a result, in other words, the same as in Excel resulting in #N/A...
I tricked the procedure, by inserting a On Error Resume Next, because it wouldn't recognize either a condition, IF IsError(Worksheetfunction...) then Cells() = "" else Worksheetfunction. This didn't work either.
Any suggestions ?
Juan Pablo