I have a vLookup routine that looks like this:
Function Customer_vlookup(Table_Rng As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd)
Dim rCheck As Range, bFound As Boolean, lLoop As Long
Dim rowSet As Range
On Error Resume Next
Set rCheck = Table_Rng.Columns(1).Cells(1, 1)
With...