Dim rng As Range
Set rng = ActiveSheet.Cells.SpecialCells _
(xlCellTypeVisible)

HTH
Jason
Atlanta, GA

-----Original Message-----
I have seen a snippet somewhere to fast and easy select
cells and cell areas
by using Find method. Maybe it was in combination with
Specialcells. Are
there any of you having a snippet of this on the shelf?
Or in your head?

I need to define a PrintArea for all the pages
containing cells.visible =
True and think maybe I can do this by specify the area
as all cells where
xlCellTypeVisible = False

/Regards


.