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" <(E-Mail Removed)> wrote in message
news:7C7D801A-488A-4CEB-B5F2-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:7C7D801A-488A-4CEB-B5F2-(E-Mail Removed)...
> > 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
>
>