Olá,
Minha sugestão é colocar num módulo algo como:
Public Sub Preenche(lista As ComboBox)
Dim data As Date, i As Integer
lista.RowSourceType = "value list"
data = DateAdd("m", -6, DateSerial(Year(Date), Month(Date), 1))
For i = 1 To 9
lista.AddItem Format(data, "mmmm/yyyy")
data = DateAdd("m", 1, data)
Next
lista.Value = Format(Date, "mmmm/yyyy")
End Sub
E no evento Ao Carregar do formulário colocaria o código:
Preenche nome_da_lista
[]'s
Alexandre (atadolfo@gmail.com)