How select/define cells with FIND method (maybe together with SpecialCells)

[Marie J-son]

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

 

[Jason Morin]

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

HTH
Jason
Atlanta, GA

 

[Tom Ogilvy]

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

msgbox rng.Address