VBA vlookup value not formula

[cmccabe1]

Hello,

I can not seen to modify the below code to return the vlookup value instead of the formula. Thanks


Dim LastRowNo As LongLastRowNo = Cells(Rows.Count, "CA").End(xlUp).Row


Worksheets("annovar").Range("B2").Formula = "=IFERROR(VLookup(A2,CA5:CB" & LastRowNo & ",2,0),"""")"
Worksheets("annovar").Range("C2").Formula = "=IFERROR(VLookup(A2,CA5:CC" & LastRowNo & ",3,0),"""")"

[Bob Phillips]

Dim LastRowNo As Long

LastRowNo = Cells(Rows.Count, "CA").End(xlUp).Row

With Worksheets("annovar")

With .Range("B2")

.Formula = "=IFERROR(VLookup(A2,CA5:CB" & LastRowNo & ",2,0),"""")"
.Value = .Value
End If

With .Range("C2")

.Formula = "=IFERROR(VLookup(A2,CA5:CC" & LastRowNo & ",3,0),"""")"
.Value = .Value
End With
End With