Brug af dato VB makro

Prøv at indflette nedenstående koder i din makro.

Sub Makro1()
\'Denne makro er udarbejdet af www.Walbum-Data.dk

Dim FilePath As String, FileName As String, ÅrstalIFilname As Byte

\'Først lægges FilStien i en variabel
FilePath = ActiveWorkbook.Path & \"\\\"

\'Derefter undersøges om projektmappen tidligere har været gemt med en dato (Søger efter aktuelt årstal med formatet åååå-mm-dd)
ÅrstalIFilname = InStr(1, ActiveWorkbook.Name, Year(Now))

\'Tager højde for årsskiftet
If ÅrstalIFilname = 0 Then ÅrstalIFilname = InStr(1, ActiveWorkbook.Name, Year(Now) - 1)

\'Hvis årstallet ikke er indeholde i navnet, lægges det til navnet
If ÅrstalIFilname = 0 Then
    FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & \" \" & Format(Date, \"yyyy-mm-dd\")
Else

\'Hvis årstaller er indeholdt i navnet, fjernes det med henblik på at sætte ny dato på
    FileName = Left(ActiveWorkbook.Name, ÅrstalIFilname - 1) & Format(Date, \"yyyy-mm-dd\")
End If
\'Så gemmes projektmappen
ActiveWorkbook.SaveAs FileName:=FilePath & FileName & \".xls\", _
        FileFormat:=xlNormal, Password:=\"\", WriteResPassword:=\"\", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

God fornøjelse