Visual Basic para Aplicaciones - Ayuda VBA

Tengo problemas para programar esta funcion.
Tengo una fecha inicial , ej: jan-01 (celda a1)
Tengo una fecha final, ej: nov-08 (celda a2)
Quiero que automaticamente me arme la lista de todos los meses entre esas dos fechas
ej:
jan-01 (celda d1)
feb-01 (celda d2)
mar-01 (celda d3)
apr-01
may-01
jun-01
.
.
.
.
.
hasta nov-08

pues simplemente debes ir sumando 28-29-30 o 31 días (según el caso) a la fecha inicial hasta llegar a la final (un ciclo do ... while o un for ... next)

Dim f As Date
f = "01/01/09"
f = f + 31
.....

Saludos desde Baires, JuanC

Gracias por la ayuda. La verdad es que soy nuevo en todo esto de la programacion en visual basics y me esta costando bastante sacar este programita. Se que se puede usar un ciclio pero el problema mas grande es que me reconozca que es un año bisiest. Si alguie puede pasarme exactamente el codigo tengo que ingresar para que me funcione el programa seria de mucha ayuda.

Muchas Gracias

Const ReformYear As Integer = 1582

Public Function EsBisiesto(ByVal Anio As Integer) As Boolean
If Anio < ReformYear Then
EsBisiesto = True '//Antes de este año todos son bisiestos
Exit Function
End If

EsBisiesto = ((Anio Mod 4 = 0 And Anio Mod 100 <> 0) Or (Anio Mod 400 = 0))
End Function

Saludos desde Baires, JuanC