Über Schaltfläche neues Blatt mit aktuellem Datum einfügen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

110600    085599

Problem: Wie kann ich über eine Schaltfläche ein neues Arbeitsblatt mit dem aktuellen Datum als Blattnamen einfügen?

StandardModule: basMain

Sub NeuesBlattErstellen()
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = Format(Date, "yyddmm")
End Sub