Save as: WEEKNUM(B2,1) "-" WEEKNUM(B2 +63),1)

Hej

Jeg skal lave en makro som gemmer min fil med dynamisk ugenr. som filnavn: eks: Uge 10 - uge 18.

Jeg har en dato i celle B2, som er første dag i eks. "uge 10",
Men kan ikke finde ud af, at returnere datoen i celle B2 til et uge nr.

Filnavnet skal gemme : Celle B2 som ugenr "-"  Celle B2 (+ 63 dage) som ugenr
= Hvis datoen er 02-03-2009 i celle b2, skal filnavnet vises således : "Uge 10 - Uge 18"

Tænker noget i retning af :

Sub Saveas()

If Now() > [B2] + 63 Then
ThisWorkbook.Saveas "G:\@Privat\Træning\" & Weeknumber[B2] - Weeknumber[B2 + 63] & " ".xls"""
Application.DisplayAlerts = True
Else
exit sub

End If
End Sub