Validatie autovullen met datums huidige week

[wieter]

Dit bepaalt de datums van de huidige week (gepikt van de site van snb.

[index(Text(today()-weekday(today(),2)+row(1:7),"dd-mm-yyyy"),)]

Nu probeer ik een validatielijst automatisch te vullen met deze datums.
Dit lukt me niet. Wie kan het?

Private Sub Workbook_Open()
With Sheets(1).Range("D2,D4").Validation
ls = ls & "," & [index(Text(today()-weekday(today(),2)+row(1:7),"dd-mm-yyyy"),)]
  .Delete
  .Add xlValidateList, , , ls
End With
End Sub

 

[snb]

Sub M_snb()
    Cells(1).Validation.Add 3, , , Join([transpose(Text(today()-weekday(today(),2)+row(1:7),"dd-mm-yyyy"))], ",")
End Sub

 

[wieter]

Alweer bingo.
Ongelooflijk wat jij kan.
Nogmaals bedankt snb.

 

[wieter]

Voor wie interesse heeft in de oplossing van snb.

Bekijk bijlage validatie autovullen(snb).xlsm