HOME>TOP>ワークシート

シート有無を確認するには？

キーワード>>Name

Point ：シートの名前を変更するときなど存在する名前を指定するとエラーになるので回避したい。

Sub Test()
 Dim i, ShtName, Flg

   ShtName = "Sheet1"
   '有無を調べるシートの名前

   Flg = True


  For i = 1 To Worksheets.Count
      If Worksheets(i).Name = ShtName Then
        Flg = False
        Exit For
     End If
  Next i

    If Flg = False Then
        MsgBox ShtName & "は存在します。"
    Else
        MsgBox ShtName & "は存在しません。"
    End If

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。