With Range("L2:L5000") sumL = 0 'assuming the row range is 2 to 5000 For r = 2 To 5000 If Cells(Worksheets("Sales Reps")(r, 1)).Value = Cells(Worksheets("Data Sheet")(r, 11)) Then sumL = sumL + Cells(Worksheets("Data Sheet")(r, 80)).Value End If Next