Error Message receiving:
'Unable to get the Vlookup property of the WorksheetFunction class'
Looking at the value in the activesheet, the table array argument reference is the workbook, sheet referenced in the function below.


[VBA]
For i = 4 To lrwsource
If Cells(i, 23).Value > 40 Then
Cells(i, 9).Value = WorksheetFunction.VLookup(Cells(i, 9), "[TGSItemRecordCreatorMaster.xls]ColorDB!$J$3:$K$198", 2, 0)
End If
Next i
[/VBA]