Dim rng1 as range, rng as Range, rng2 as Range
set rng = ActiveSheet.Autofilter.Range

set rng1 = rng.columns(3).Cells

set rng2 =
rng1.offset(1,0).Resize(rng1.rows.count-1).Specialcells(xlvisible)

--
Regards,
Tom Ogilvy

"Michael Kintner" wrote in message
...
How can I in Excel VB get the Auto Filter Range from a sheet?

Next how can I can the Auto Filter Range of a specific column?

Finally how can I set for filter range in VB then return the found items
and
values?

Sorry so many questions but the boos wants something done yesterday. You
know how that goes. (smile)

Thanks in advance for any help?

Mike