Sub DeleteHiddenRows()
'
' Remove hidden rows from all sheets
'
For iCount = 1 To Worksheets.Count
  If Worksheets(iCount).Visible Then
    Worksheets(iCount).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 iCount
If Worksheets(1).Visible Then Worksheets(1).Select
End Sub