特定の名前のシートの存在を判定する
 サンプルマクロは、testという名前のワークシートが存在するか
どうかを判定します。

 グラフシートやモジュールシートは判定されません

Sub Sample()

    Dim mySht As Worksheet

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

End Sub

Excel95/97/2000



戻る


Excel Word Access VBA! モーグ