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

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


.

Dim rng as Range
On error resume next
set rng = Activesheet.UsedRange.SpecialCells(xlVisible)
On Error goto 0

msgbox rng.Address

--
Regards,
Tom Ogilvy

"Marie J-son" wrote in 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