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