Try doubling up on the double quotes and using =if(iserror(

ActiveCell.Formula = _
"=IF(iserror(VLOOKUP(B2,'LookupTable'!$A$1:$B$100, 1,FALSE)),""""," _
& "IF(G20,(G2-J2)*E2/G2,""""))"

But since you're only checking column A, you could use =if(iserror(match(...)))

ActiveCell.Formula = _
"=IF(iserror(match(B2,'LookupTable'!$A$1:$a$100,0) ),""""," _
& "IF(G20,(G2-J2)*E2/G2,""""))"





Kanga 85 wrote:

I need to lookup a Table to find values, but somtimes my entry is not present
and the function returns '#NA'. In this case I want a blank in column M,
otherwise some function.

The following code does not run and has an error somewhere in the
ActiveCell.Formula.
Thanks for any help.

Range("M2").Select
ActiveCell.Formula =
_"=IF((VLOOKUP(B2,'LookupTable'!$A$1:$B$100,1,FALS E)="#NA"),"",IF(G20,(G2-J2)*E2/G2,""))"
With ActiveSheet
.Range("M2").AutoFill Destination:=Range("M" & lastrow),
Type:=xlFillDefault
End With


--

Dave Peterson