Dim Rws As Long, Rng As Range
Rws = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range(Cells(2, 1), Cells(Rws, 1))
Rng.AutoFilter Field:=1, Criteria1:="<.5"
Answers by Expert:
I can answer most excel questions My Website is davesexcel.com
I have been working with spreadsheets since 1991.
I am a self-trained excel developer since 2005.
My website davesexcel.com
Business admin. U of R.
Awards and Honors
Microsoft Excel MVP 2011-2012