Delet all row's with "TOTALS"

[Guest]

I have a Download that I am trying to clean up.
The download has data that I need but also has totals in severals row's
I want to Find the "TOTALS" and delete the Row for all the rows tha contains
"TOTALS"

I have is This: I am geting error Message in "Set c = .FindNext(c)"
Columns("d:d").Select

With Selection

Set c = .Find("TOTALS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Delete
Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

 

[Tom Ogilvy]

Set c = .Find("TOTALS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
set d = c.offset(-1,0)
c.EntireRow.Delete
Set c = .FindNext(d)

Loop While Not c Is Nothing
End If
End With

 

[Bob Phillips]

How about an alternative

Dim cRows As Long
Dim rng As Range

Range("D1").EntireRow.Insert
Range("D1").Value = "temp"
cRows = Cells(Rows.Count, "D").End(xlUp).Row
Set rng = Range("D1" & cRows)
rng.AutoFilter Field:=1, Criteria1:="TOTALS"

rng.SpecialCells(xlCellTypeVisible).EntireRow.delete

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Once Again You are a BIG HELP,

THANKS

Set c = .Find("TOTALS", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
set d = c.offset(-1,0)
c.EntireRow.Delete
Set c = .FindNext(d)

Loop While Not c Is Nothing
End If
End With