Open up rows

C

Chris Gorham

Hi,

I'm attempting to check whether a selection contains rows
that are hidden..

For Each cell In Selection

If cell.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
End If

next cell

This can take time to run if for instance the selection is
of an entire column. Clearly I would only want to run
through one column, rather than all those contained in
selection.

How can I improve on the syntax..??

Thks...Chris
 
B

Bob Phillips

Chris,

If you just want to make all rows visible, it can be done with

cells.entirerow.hidden=false


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
J

J.E. McGimpsey

One way:

Based on your current code, you should use

Selection.EntireRow.Hidden = False

If there are no hidden rows in the selection, this has no effect. If
there are any hidden rows, all of them are made visible.
 
J

Jim Cone

Chris,
You can use something like the following...
'---------------------------
Dim N as Long
Dim NewCount as Long

N = Selection.Rows.Count
NewCount = Selection.Columns(1).SpecialCells(xlCellTypeVisible).Count
If N <> NewCount Then
MsgBox "Hidden Rows"
End If
'---------------------------------
Regards,
Jim Cone
San Francisco, CA
 
Top