Nếu bạn đang dùng Excel 2007/2010/2013 thì dùng tính năng Inspect Document để làm việc này như .

Bấm File > Info > Check for Issues > Inspect Document 

Nếu bạn dùng Excel 2007 , bấm nút Office > Prepare > Inspect Document

Cửa sổ Document Inspect mở ra , bấm nút Inspect phía dưới cùng .

Trong phần Hidden Worksheets , bấm nút Remove All

Tuy nhiên bạn có thể làm việc này bằng Macro bên dưới

Sub deletehidden()
Dim a As Integer
a = 1
While a <= worksheets=\"\" count=\"\" span=\"\">
If Not Worksheets(a).Visible Then
Worksheets(a).Delete
Else
a = a + 1
End If
Wend
End Sub