Hi,

I'd like to find a cell with the content "This cell" and then I'd
like to delete the row (not only the content of the cell). This is
what I've got:

Sub DeleteRow()
With Worksheets(1).Range("A1:H100")
Set C = .Find("This Cell", LookIn:=xlValues)

' Rows(???).Select
' ??? How to select the row to delete ???

Selection.Delete Shift:=xlUp
End With
End Sub

Thanks and regards,
Armin