Boş bir Excel sayfası açın.
Altta Sayfa1 yazan sekmeye sağ tıklayıp "Kod Görüntüle" deyin.
Aşağıda verdiğim kodu yapıştırın ve kaydedin. Makro içeren excel sayfası olarak kaydedin. Yani .xlsm uzantılı.
A1:A60 hücreleri arasında ne yazarsanız entere her bastığınızda yeni sayfa olarak size verir. İlk sefer için tek tek yazmak gerekebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim wsName As String
    
    If Not Intersect(Target, Range("A1:A60")) Is Nothing Then
        Application.EnableEvents = False
        
        If Target.Value <> "" Then
            wsName = Target.Value
            
            On Error Resume Next
            Set ws = ThisWorkbook.Sheets(wsName)
            On Error GoTo 0
            
            If ws Is Nothing Then
                ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = wsName
            End If
        End If
        
        Application.EnableEvents = True
    End If
End Sub