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