Hi, I have a macro which filters data and deletes using the code below.

Cells.Select

With Selection
.AutoFilter Field:=30, Criteria1:="1"

Selection.EntireRow.Delete Shift:=xlUp
End With
Unfortuantely this deletes the header row as well. Does anyone know how to
avoid this happening?

Any help greatly appreciated.

cheers,

Davie

See this example
http://www.rondebruin.nl/delete.htm#AutoFilter


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"davethewelder" wrote in message
...
Hi, I have a macro which filters data and deletes using the code below.

Cells.Select

With Selection
.AutoFilter Field:=30, Criteria1:="1"

Selection.EntireRow.Delete Shift:=xlUp
End With
Unfortuantely this deletes the header row as well. Does anyone know how to
avoid this happening?

Any help greatly appreciated.

cheers,

Davie

Ron, thanks for the quick reply. The example worked perfectly.

I posted a problem on the site three days ago but unfortunately no-one has
picked it up and I am running out of time to complete this report. Could you
possibly have a look at it. It is called "Formatting cell and adjacent cell".

If you can't, thanks anyway.

Davie

"Ron de Bruin" wrote:

See this example
http://www.rondebruin.nl/delete.htm#AutoFilter


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"davethewelder" wrote in message
...
Hi, I have a macro which filters data and deletes using the code below.

Cells.Select

With Selection
.AutoFilter Field:=30, Criteria1:="1"

Selection.EntireRow.Delete Shift:=xlUp
End With
Unfortuantely this deletes the header row as well. Does anyone know how to
avoid this happening?

Any help greatly appreciated.

cheers,

Davie