スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、アクティブセルに記入された文字列を名前とするシートをアクティブにします。
シートが存在しない場合は一番後にアクティブセルの値を名前とする新規シートを作成します。

Sub Sample()

    Dim strSht As String
    
    On Error Resume Next
    strSht = ActiveCell.Value
    If strSht = vbNullString Then Exit Sub
    Sheets(strSht).Activate
    If Err.Number <> 0 Then
        Err.Clear
        Sheets.Add(, Sheets(Sheets.Count)).Name = strSht
    End If

End Sub