Do Until Loop

[nniedzielski]

I am running a macro that is going back 15 days scraping data, I need to know how to write code that will get my macro to stop after it has gone back 15 days, I was thinking of dooing a Do Until Loop, but i cant figure out how to write a Do Until that will stop after 15 days.

Here is what I have so far:

9
    lDate = lDate - 1
    lMonth = Format(lDate, "mm")
    lDay = Format(lDate, "dd")
    lYear = Format(lDate, "yy")
    lweekday = Weekday(lDate, vbMonday)
    GoTo 64

I only want this to be done for 15 days and then stop going to 64.

How can I achieve this?

thank you,

 

[Fluff]

How about

Dim i As Long
For i = 1 To 15
   lDate = lDate - 1
   lMonth = format(lDate, "mm")
   lDay = format(lDate, "dd")
   lYear = format(lDate, "yy")
   lweekday = Weekday(lDate, vbMonday)
   ' do whatever
Next i

 

[nniedzielski]

perfect,

thank you

 

[Fluff]

Glad to help & thanks for the feedback