Søgning + sletning af række i excel

Sub SletRækken()
    Dim RW As Long, I As Long
    RW = Range("B65536").End(xlUp).Row  ' finder den sidste række med data
    Application.ScreenUpdating = False    ' slår skærmopdateringen fra
    For I = RW To 1 Step -1  ' fra den sidste række , der er fundet i kolonne B til nr.1
        If Cells(I, "B") = 71 Then    ' hvis værdien er 71
            Cells(I, "B").EntireRow.Delete  ', så slettes rækken
        End If
    Next I
    Application.ScreenUpdating = True    ' slår skærmopdateringen til igen
End Sub


Koden skal ind i et modul, samme sted som dine optagne makroer er.

MANGE tak kabbak

Det var lige det jeg havde brug for.
Jeg har også fundet ud af, at dine koder kan indsættes efter hinanden med forskellige variabler og herefter slettes de ønskede rækker - PERFEKT.

MANGE MANGE MANGE TAK

Hvordan giver jeg dig point ??

Et svar fra mig, så kan du. ;-))