Remove Hidden Worksheets

Sub RemoveHiddenSheets()

‘ Remove hidden sheets from your document

iCount = 1
While iCount <= Worksheets.Count
If Not Worksheets(iCount).Visible Then
Worksheets(iCount).Delete
Else
iCount = iCount + 1
End If
Wend
End Sub