Based on your question, Try........................

Range("YOUR RANGE").Select
Selection.AutoFilter 'Turns on AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<" 'Selects not equa
to blank
Selection.AutoFilter 'Turns AutoFilter off, you dont need this en
bit as your selection will become unfiltered as soon as the code get
here!

Regards,
Simo

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=56965