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(xlCellTypeVisibl e).Count
If N < NewCount Then
MsgBox "Hidden Rows"
End If
'---------------------------------
Regards,
Jim Cone
San Francisco, CA

"Chris Gorham" wrote in message
...
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