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

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