Hjælp til vba

Glemte måske at sige det jeg ville have. Er at den skal slette hele rækken hvis den indtastet tekst er der

Er først tilbage i aften, så svarer ikke før

Ok - men er et bud:

Sub erstat()
Dim DataInput, område
    område = Selection.Address
   
    DataInput = InputBox("Skriv det der skal søges efter i cellerne:Husk der skelnes mel store og små bogstaver")
    If DataInput = "" Then Exit Sub
        For Each c In Range(område).Cells
            If InStr(1, c.Value, DataInput) Then
                række = c.Row
                Rows(CStr(række) & ":" & CStr(række)).Select
                Selection.Delete Shift:=xlUp
            End If
        Next
       
    Range("A1").Select
End Sub

Supertekst
det var lige sådan det skulle være, jeg har da noget at øve mig på. Men tak for hjælpen

Fint - du får et svar...

:-)