Discarding all hidden cells?
 

Doesnt anyone know how to do this automagically?

Many thanks
Jos .

Discarding all hidden cells?
 

got it.. had a better search ;-) This one works perfectly... no fuss!

Sub test()

Dim r As Range


For Each r In Intersect(ActiveSheet.UsedRange, Columns(1))
If r.EntireRow.Hidden = True Then
r.EntireRow.Delete
End If
Next


End Sub

Discarding all hidden cells?
 

.....can we have a bit more info please!

the answer may well include:
Selection.SpecialCells(xlCellTypeBlanks).Select

Rgds
J



jsb88 wrote:

Doesnt anyone know how to do this automagically?

Many thanks
Jos .