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