Office: Tabellenblätter anlegen und benennen

Guten Tag allerseits!

Ich habe genau dasselbe Anliegen wie der Kollege. Der Code funktioniert gut, allerdings sind alle Tabellenblätter jetzt nach dem ersten Tag der Woche benannt, im Namen soll aber auch der letzte Tag auftauchen (wie in Spalte "I", z.B. 01.01.2000-07.01.2020). Ich habe schon versucht, das folgendermaßen zu lösen:

PHP:

         Sub Kalendererstellen()
Dim Sheet1 As Worksheet
Dim sheetnew As Worksheet
Dim Blattname As String
Dim i As Integer
Dim LetzteZeile As Integer

Set Sheet1 = ThisWorkbook.Worksheets("Tabelle1")
LetzteZeile = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

Blattname = Sheet1.Name
For i = 1 To LetzteZeile
If Sheet1.Cells(i, 1).Value <> "" Then
Set sheetnew = Worksheets.Add(After:=Sheets(Blattname))
With sheetnew
.Name = Sheet1.Range("I" & i)
End With
Blattname = sheetnew.Name
End If
Next
End Sub