Ich habe ein VBA das mir in der Tabelle das Format zB. "08.08.2023" auswirft.

Sub BlätterEinfügen()
Dim Last As Integer, i As Integer

Application.ScreenUpdating = False
With ActiveSheet
Last = Day(Application.EoMonth(.Range("B2"), 0))
.Name = .Range("B2")
End With

For i = 2 To Last
Sheets(i - 1).Copy after:=Sheets(i - 1)
ActiveSheet.Range("B2") = Sheets(i - 1).Range("B2") + 1
ActiveSheet.Name = Range("B2")
Next
Application.ScreenUpdating = True
End Sub


Ich sollte aber als Ergebnis das Format z.B.: "Di. 08.08.2023" haben. Kann mir bitte jemand die besehende Formal ergänzen? Ich komm als Laie hier nicht weiter. Danke