Sub Sample1()
    Dim mySht As Worksheet

    On Error GoTo ErrHdl
    Set mySht = Worksheets("Test")
    MsgBox "シート""Test""は存在します。"
    Exit Sub
   
ErrHdl:
    MsgBox "シート""Test""は存在しません。", vbExclamation
End Sub