Tabs ab bestimmtem Datum

[A.Zorn]

Hallo
 
Ich brauche bitte mal eure Hilfe, da ich ein Laie in diesem Gebiet bin. Ich habe mir dieses Makro kopiert was soweit auch Funktioniert.
 
Sub FuegeTabellenEin()
Dim Anzahl As Integer
Dim i As Integer
Anzahl = InputBox("Wie viele Blätter einfügen?")
For i = 1 To Anzahl
 Worksheets.Add after:=Worksheets(Worksheets.Count)
 Worksheets(Worksheets.Count).Name = Date + i
Next i
End Sub
 
 Ich brauche bitte zum Eingeben nicht nur wie viele Seiten es sein sollen, sondern auch das Startdatum. Wenn möglich sollte der Sonntag nicht auftauchen. Wenn es dann noch möglich wäre, sollte das Datum z.B. wie folgt erscheinen:  Mo. 05.07.21


Danke schon mal im voraus