Try this, but change "A1" to the address of the header cell in your column of
interest:

Range(Range("A1").offset(1,0),
Range("A1").End(xlDown)).SpecialCells(xlCellTypeVi sible).Select

--
Jay


"thread" wrote:

Hi all
I'm uploading excel to access and i would like to get the filter items
of one of the columns,is it possible?