For/Next Loop using Dates

[cstimart]

I'm trying to create a For/Next loop using dates (with Step 7 for the week), but am not getting close.

I would like to loop all Sunday Dates from an optional point in time upto Now().

Any tips?

 

[shg]

One way:

Sub x()
    Dim iDate As Long
    Dim iBeg As Long
    
    iBeg = Date - Int(Rnd * 90)
    Debug.Print vbLf & "Start: " & Format(iBeg, "ddd dd mmm yyyy")
    
    For iDate = iBeg + 7 - Weekday(iBeg - 1) To Date Step 7
        Debug.Print Format(iDate, "ddd dd mmm yyyy")
    Next iDate
End Sub