Error 1004 - Unable to get the VLookup Property of the WorksheetFunction Class

[Ananthak275]

My code is erroring out. Can someone help me understand why?

Sub Vlookup_Status()
Workbooks(destWB).Activate

rownum = 2
While Cells(rownum, Product_Column).Value <> ""
'This will autofill the columns
Worksheets(destWB_Sheet).Cells(rownum, Category_Column).Value = Application.WorksheetFunction.VLookup(Worksheets(destWB_Sheet).Cells(rownum, Product_Column).Value, _
ThisWorkbook.Sheets(1).Range("A:B"), 2, False)

Worksheets(destWB_Sheet).Cells(rownum, Domain_Column).Value = Application.WorksheetFunction.VLookup(Worksheets(destWB_Sheet).Cells(rownum, Product_Column).Value, _
ThisWorkbook.Sheets(1).Range("A:C"), 3, False)

rownum = rownum + 1

Wend

End Sub

 

[offthelip]

Either you have only given us part of your code or else you have a lot of undefined variables.
All of these are undefined in the code you have posted:
destWB
Product_Column
destWB_Sheet
Category_Column
Domain_Column