サンプルマクロは、ブック内にSampleという名前のシートがあるか
どうかを調べます。

　通常のワークシートだけでなく、グラフシート、モジュールシート
等もチェックを行います。

Sub Sample()

    Dim myChkSht As Worksheet

    On Error GoTo ErrHdl
    Set myChkSht = Sheets("Sample")

    MsgBox "存在します。"
    Exit Sub
    
ErrHdl:
    MsgBox "存在しません。"

End Sub