Интервал дат в массив - VBA

Формулировка задачи:

Друзья привет. Быстренко накатал небольшой код, который помогает вычесть 30 дней со дня текущей даты, но есть вопрос. Не могу допереть как мне получить все значения интервала дат в моей разнице -30 дней. Т.е мне нужны все даты с начала текущей и - 30 дней. Если возможно это сделать динамическим массивом было бы круто.

Sub datev()
mln = Format(Date, "DD MM YY")
dat2 = DateAdd("d", -30, mln)
End Sub

Решение задачи: «Интервал дат в массив»

textual
                            Листинг программы 
                        

                            Sub datev()
Dim col As New Collection
Dim a As Integer
mln = Format(Date, "YYYY MM DD")
 
a = 0
For x = 1 To 30
a = a - 1
       If a >= -30 Then col.Add Format(DateAdd("d", a, mln), "YYYYMMDD")
      
    Exit Sub
                        