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

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

--
Regards,
Tom Ogilvy


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

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:D" & cRows)
rng.AutoFilter Field:=1, Criteria1:="TOTALS"

rng.SpecialCells(xlCellTypeVisible).EntireRow.dele te

--

HTH

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


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

Once Again You are a BIG HELP,

THANKS

"Tom Ogilvy" wrote:


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

--
Regards,
Tom Ogilvy


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