A
Adam G
' 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!
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!