【VBA】非表示シートを安全に削除する方法

手作業で非表示のワークシートを削除するのは時間がかかるうえ、エラーが発生しやすいです。この記事では、VBAを使って非表示のワークシートを安全に削除する方法を紹介します。初心者でも簡単に実行でき、業務効率化に役立ちます。

サンプルコード

VBA

Option Explicit
Sub DeleteHiddenSheets()
    Dim ws As Worksheet
    On Error Resume Next 'エラーが発生しても処理を続行するように設定
    Application.DisplayAlerts = False '警告メッセージを表示しないように設定
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
            ws.Delete '非表示のシートを削除
        End If
    Next ws
    Application.DisplayAlerts = True '警告メッセージを再び表示するように設定
End Sub

よくある質問

Q 元に戻せますか？

VBAで削除したシートは復元できません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認し、適切なエラーハンドリングを行うことで解決します。