Tom,
thanks, this is exactly what I was looking for.

Regards
Armin Ronacher


"Tom Ogilvy" schrieb im Newsbeitrag
...
Sub DeleteRow()
With Worksheets(1).Range("A1:H100")
Set C = .Find("This Cell", LookIn:=xlValues)
if not c is nothing then
c.EntireRow.Delete
End if
End With
End Sub

--
Regards,
Tom Ogilvy


"Armin Ronacher" wrote in message
...
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