vlookup delete method of range class failed

[xxentric]

im not sure why im getting this failure on deleting the row... i have looked at some examples of this.

here is the code...

Dim lookForRng As Range
Dim lookFor As Range
Dim rng As Range
Dim found
    Set lookForRng = ThisWorkbook.Sheets("Sheet2").Range("C3")
    Set rng = RS.Worksheets("Sheet1").Columns("A")
    For Each lookFor In lookForRng
        found = Application.VLookup(lookFor.Value, rng, 1, 0)
        If Not IsError(found) Then
           RS.Worksheets("Sheet1").Unprotect Password:="7/*-+7"
           lookFor.EntireRow.Delete
           RS.Worksheets("Sheet1").Protect Password:="7/*-+7"
        End If
    Next lookFor

 

[PHV]

I guess you want to replace this:
lookFor.EntireRow.Delete
with this:
found.EntireRow.Delete

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886