Dim i As Integer
Dim d As Date
Dim dp As Date
Dim dn As Date
Dim days As Byte
Dim dd As Integer
Dim mm As Integer
Dim yy As Integer
Dim ww As Integer
Dim j As Integer

d = Now
mm = VBA.Month(d)
yy = VBA.Year(d)

dp = VBA.DateSerial(yy, mm,  1 )
dn = VBA.DateSerial(yy, mm +  1 ,  1  -  1 )
days = DateDiff("d", dp, dn, vbMonday)


j =  1 
Debug.Print "=== неделя " & j & " ==="
For i =  1  To days
    d = VBA.DateSerial(yy, mm, i)
    ww = VBA.Weekday(d, vbMonday)
    If ww =  1  Then
         j = j +  1 
        Debug.Print "=== неделя " & j & " ==="
    End If
    Debug.Print VBA.WeekdayName(ww) & vbTab & VBA.Format$(d, "dd.mm.yyyy")
Next i