Macro met datums.

[bakerman]

Sub Kopieren_Dagen()
'
' Kopieren_Dagen
'

'
    Dim wkDay(1 To 5) As String
    Dim m As Integer, i As Integer, dt As Date
    dt = Now()
    m = Weekday(dt, vbMonday) - 1
    For i = 1 To 5
        wkDay(i) = Format(dt - m, "yyyy_dd_mm"): m = m - 1
    Next i
    myarr = Array("", 1, 2, 3, 4)
    Blad1.Columns("F:G").EntireColumn.Hidden = True
    For i = 1 To 5
        Blad1.Range("C2") = myarr(i - 1)
        ActiveWorkbook.SaveCopyAs "D:\" & wkDay(i) & ".xlsm"
    Next
    Blad1.Columns("F:G").EntireColumn.Hidden = False
End Sub

 

Gooi bovenstaande er eens tegen. Deze maakt de datums van de huidige week aan, van maandag tot vrijdag.