Excel VBA ≫ 1．基礎編 - ワークシート ≫ (7)-e．ワークシートの名前

＜サイト内関連リンク＞
⇒　ワークシート名をすべて表示する例（For Each文）
⇒　ワークシート名をすべて表示する例（For文）

Sub sample_eb075_01()
    Dim strShtName      As String
    Dim mySheet         As Worksheet
    Dim flg_err         As Boolean
    Dim aryErrChar      As Variant
    Dim i               As Integer

    'シート名に使用できない文字の設定
    aryErrChar = Array(":", "\", "/", "?", "*", "[", "]")

    'シート名の入力受け付け
    strShtName = InputBox("追加するシート名を入力してください。")

    If strShtName = "" Then
        '「キャンセル」か「×」ボタンが押下された場合
        'またはシート名が未入力だった場合
        MsgBox "処理をキャンセルしました。", vbExclamation
        End     '処理終了
    End If

    'シート名の文字数チェック
    If Len(strShtName) > 31 Then
        MsgBox "シート名は31文字以内で入力してください。", vbCritical
        End
    End If

    'シート名に使用できない文字のチェック
    flg_err = False
    For i = 0 To UBound(aryErrChar)
        If InStr(1, strShtName, CStr(aryErrChar(i))) > 0 Then
            flg_err = True
            Exit For
        End If
    Next i

    If flg_err Then
        'シート名に使用不可能文字が含まれている場合
        MsgBox "シート名に使用不可能文字が含まれています。" & vbLf & _
               "【使用不可能文字】" & vbLf & _
               """" & Join(aryErrChar, """  """) & """", vbCritical
        End
    End If

    '入力されたシート名の存在チェック
    flg_err = False
    For Each mySheet In Worksheets
        If mySheet.Name = strShtName Then
            flg_err = True  'シートがすでに存在している
            Exit For
        End If
    Next

    If flg_err Then
        'シートが存在している場合
        MsgBox "入力されたシート名『" & strShtName & _
               "』がすでに存在しています。", vbCritical
        End
    End If

    'シートの追加および名前の変更
    With Worksheets.Add(After:=Worksheets(Worksheets.Count))
        .Name = strShtName
    End With

    MsgBox "シート『" & strShtName & _
           "』を追加しました。", vbInformation
End Sub