See if this cade works?
Range("K8").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(R[1]C[-10],R8C16:R94C17,2,FALSE)),"""",VLOOKUP(R[1]C[-10],R8C16:R94C17,2,FALSE))"
Range("K8").Select
Selection.AutoFill Destination:=Range("K8:K153")
Type:=xlFillDefault
Range("K8:K153").Selec
--
Message posted from
http://www.ExcelForum.com