【VBA】特定の名前のシートをエラー処理付きで取得する方法

日々の業務で同じシートを何度も開くことは、労力と時間を浪費します。この記事では、特定の名前のワークシートを自動的に取得し、エラーが発生した場合でも安全に処理できるVBAマクロを作成する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub GetSpecificSheet()
    Dim ws As Worksheet
    On Error GoTo NoSheetFound
    Set ws = ThisWorkbook.Sheets("特定のシート名")
    MsgBox "指定したシートが見つかりました。", vbInformation
    Exit Sub
NoSheetFound:
    MsgBox "指定されたシート名は存在しません。", vbExclamation
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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