fejl i vba kode

Selection.Value = WorksheetFunction.WeekNum(Now, 2)

Den skriver rigtigt nok i de aktive celler, men den skriver uge 19, hvilket jo ikke er korrekt

Gætter på:
Selection.Value = WorksheetFunction.WeekNum(Now, 21)

Fordi:
Returnerer ugenummeret for en bestemt dato. Den uge, der indeholder 1. januar, er f.eks. den første uge i året, og den nummereres som uge 1.

Der bruges to systemer til denne funktion:

System 1
Den uge, der indeholder 1. januar, er den første uge i året, og den nummereres som uge 1.

System 2
Den uge, der indeholder den første torsdag i året, er den første uge i året, og den nummereres som uge 1. Dette system er den metodologi, som er angivet i ISO 8601, der er bedre kendt som det europæiske ugenummereringssystem

Returtype: 2
Start ugen på en: Mandag 
System: 1

Returtype: 21
Start ugen på en: Mandag 
System: 2

Selection.Value = WorksheetFunction.WeekNum(Now, 1)
Returtype: 1 Den uge, der indeholder 1. januar, er den første uge i året.
1 JANUAR = LØRDAG = UGE 52 (05-05-2011 vil give uge 19)

Selection.Value = WorksheetFunction.WeekNum(Now, 21)
Returtype: 21 Den uge, der indeholder den første torsdag i året, er den første uge i året.
6 JANUAR = uge 1 (05-05-2011 vil give uge 18)

http://office.microsoft.com/da-dk/excel-help/uge-nr-funktionen-uge-nr-HP010343016.aspx

Hej Morten,
Så fik jeg det til at virke. Tak for hjælpen. Kast et svar, så lukker jeg spørgsmålet.

Jeg kaster et 'Svar'
Men skal jeg ikke dele point med "supertekst"?

Afstår...