Delete Row

[Armin Ronacher]

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

 

[Tom Ogilvy]

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

 

[Armin Ronacher]

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

Regards
Armin Ronacher