IF?? you mean that it is unsorted, it doesn't matter.
IF? you mean that there are blanks in the dataselect ALL rowsthen
autofilter.
Sub filterem()
With Range("A1:A" & Cells(Rows.Count, "a").End(xlUp).row)
.AutoFilter
.AutoFilter Field:=1, Criteria1:="a"
End With
End Sub
--
Don Guillett
SalesAid Software

"Knutsel" wrote in message
oups.com...
Hi Don,

Because autofilter does not work when the rows are not contigues.
Or I'm not doing it right...

Nico