Open up rows

  • Thread starter Thread starter Chris Gorham
  • Start date Start date
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
 
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)
 
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.
 
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
 
Back
Top