Deleting minimized Rows in a group
 

' Is there an easy way to modify the following macro to delete the
minimized rows in groups of rows (grouped together through excel
grouping feature)

Sub DeleteHiddenRows()
'
' Remove hidden rows from all sheets
'

For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then
Worksheets(i).Select
ActiveCell.SpecialCells(xlLastCell).Select
k = ActiveCell.Row
For j = 1 To k
If Rows(j).Hidden Then
Rows(j).Hidden = False
Rows(j).Delete
End If
Next j
End If
Next i
If Worksheets(1).Visible Then Worksheets(1).Select

End Sub

Adam

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

Deleting minimized Rows in a group
 

Sub DeleteHiddenRows()
'
' Remove hidden rows from all sheets
'

For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then
Worksheets(i).Select
ActiveCell.SpecialCells(xlLastCell).Select
k = ActiveCell.Row
For j = K To 1 step -1
If Rows(j).Hidden Then
Rows(j).Hidden = False
Rows(j).Delete
End If
Next j
End If
Next i
End Sub


Should work I would think.

--
Regards,
Tom Ogilvy


"Adam G" wrote in message
...

' Is there an easy way to modify the following macro to delete the
minimized rows in groups of rows (grouped together through excel
grouping feature)

Sub DeleteHiddenRows()
'
' Remove hidden rows from all sheets
'

For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then
Worksheets(i).Select
ActiveCell.SpecialCells(xlLastCell).Select
k = ActiveCell.Row
For j = 1 To k
If Rows(j).Hidden Then
Rows(j).Hidden = False
Rows(j).Delete
End If
Next j
End If
Next i
If Worksheets(1).Visible Then Worksheets(1).Select

End Sub

Adam

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!