【VBA】非表示シートを完全一致で取得する方法

日々の業務では、大量のデータの中から特定の非表示シートを探すのが大変な経験はありませんか？この記事では、指定した名称と完全に一致する非表示シートを素早く取得する方法を紹介します。手作業で探す時間は大幅に削減でき、業務効率が向上すること間違いなしです。

サンプルコード

VBA

Option Explicit
Sub GetHiddenSheetByName()
    Dim ws As Worksheet, targetName As String
    ' 対象のシート名を指定
    targetName = "特定のシート名"
    
    Application.ScreenUpdating = False ' 画面更新停止
    On Error GoTo ErrorHandler ' エラー処理用ラベル
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetHidden And ws.Name = targetName Then
            MsgBox "シート名: " & ws.Name & " を取得しました。", vbInformation
            Exit Sub
        End If
    Next ws
    
    MsgBox "指定した名称の非表示シートは見つかりませんでした。", vbExclamation
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。