Problems with vlookup on another sheet

[slang]

OK, its been a while since I have done any coding and I must have lost a lot of brain cells in the last while. :)
I am having problems with qualifying the lsheet vlookup property. Doing something wrong

Sub removeprofiles()


Dim LastRow As Long
Dim terr As String
Dim crm As Integer
Dim current As Integer
Dim rang As Range
Dim i As Integer
Dim dSheet As Worksheet
Dim lSheet As Worksheet


Workbooks.Open Filename:="C:\BDR\33profiles.xls", Password:="offlimits1" 'this is the local workbook that needs to be verified
Set dSheet = Workbooks("33profiles.xls").Worksheets("sheet1")
Set lSheet = Workbooks("Assessment archive 2019.xlsm").Worksheets("accounts") 'this is the workbook withthe code in it

LastRow = dSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = LastRow To 2 Step -1

current = WorksheetFunction.VLookup(dSheet.Range("A" & i), dSheet.Range("A2:u3000"), 21, False)
crm = WorksheetFunction.VLookup(dSheet.Range("A" & i), lSheet.Range("A2:C3000"), 3, False)
If crm <> current Then MsgBox "Wrong at row " & I 'this is where I will do something
Next

End Sub

[Paul_Hossler]

I think you need the workbook in the VLookup second parameter





Application.WorksheetFunction.VLookup(dSheet.Range("A" & I), Workbooks("Assessment archive 2019.xlsm").Worksheets("accounts").Range("A2:u3000"), 2, False)

[slang]

oops, I needed a "on error resume next" as the vlookup will fail if it doesn't find a match.
Coding like a newbie , been a while