vlookup troubles

[dgrimm]

Ok here we go again.....

I am trying to do a if(isna(vlookup....

here is my code

Sub Date_Get()

Dim PatCnt As Long
Dim PatRange(3000) As Variant
Dim PatNumber(3000) As Variant
Dim CheckInputPat(3000) As Boolean
Dim RngSiz As Long

PatCnt = WorksheetFunction.CountA(Range("PatNumbr"))

For i = 1 To PatCnt - 1

Range("E" & i + 1).Formula = _
"=IF(ISNA(VLOOKUP(""Patient:"",PatientL & i,3,FALSE)),"""",VLOOKUP(""Patient:"",PatientL & i,3,FALSE))"
Next i
End Sub

I can't figure out where I am going wrong. PatientL & i are ranges.

Thanks in advance.

Dave.....