gem som

Ja - men at finde funktionen var ikke så let *S*

Sub GemFil()

WeekNumber = Format(Date, "ww")
MyYear = Year(Date)

Filnavn = "Uge " & WeekNumber & " År " & MyYear

ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\Skrivebord\" & Filnavn, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End sub

Tak, det virker perfekt