VBA Runtime Error 1004 “Application-defined or Object-defined error” when checking for duplicates in two colums

Question

I am having an issue with a Error 1004 "Application-defined or Object-defined error".

I have used the exact same code many times before but for some reason I cannot make it function in this sub .

Sub Checkduplicates()

Dim tracker As Workbook

Set tracker = ActiveWorkbook

With tracker.Sheets("Tracker")

Dim sEntity As String, sAmt As Double, sRow As Integer

sEntity = .Cells(row, 6).Value sAmt = .Cells(row, 11).Value

If row > 1010 Then sRow = row - 1000 Else sRow = 4

For sRow = sRow To row - 1 If .Cells(sRow, 6).Value = sEntity And .Cells(sRow, 11).Value = sAmt Then

  Call GetAnswer

End If

Next sRow

End With

End Sub

Answer 1

Two problems.

Main problem is that no value has been assigned to Row and therefore Row equals zero and there is no row zero and the code should fail with the error you have indicated on the following line of code.

sEntity = .Cells(Row, 6).Value

Also Row is a reserved word and it is not good programming to use it as a variable. Preferable to use lRow or lngRow.

Answer 2

row isn't defined so the error occurs when you are trying to assign sEntity