Erweiterung des Code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, wks As String, Qe As Integer
wks = ActiveSheet.Name
If Target.Row <> 1 And Target.Column <> 1 Then Exit Sub
Qe = MsgBox("Sollen neue Tabellenblätter angelegt werden ?", vbQuestion + vbYesNo, "Mappe erstellen")
If Qe = vbNo Then
Qe = MsgBox("Sollen bestehende Tabellenblätter umbenannt werden ?", vbQuestion + vbYesNo, "Mappe modifizieren")
If Qe = vbNo Then Exit Sub
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets(wks).Cells(i, 1).Value
Next i
MsgBox "Alle Tabellen umbenannt"
Exit Sub
End If
For i = 2 To Worksheets(wks).Range("A65536").End(xlUp).Row
Worksheets.Add
ActiveSheet.Name = Worksheets(wks).Cells(i, 1).Value
Next i
MsgBox "Alle Tabellen erstellt"
End Sub