Delete Hidden Rows

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