Private Sub UserForm_Initialize()

For i = 0 To 3

Me.ComboBox1.AddItem Format(Date, "YYYY") - i

Next i

Me.ComboBox1.Value = Format(Date, "YYYY")

End Sub

Private Sub ComboBox1_Change()

Me.ListBox1.Clear

For i = 0 To 11

A = Application.WorksheetFunction.EDate("1" & "/" & "January" & "/" & Me.ComboBox1.Value, i)

B = Application.WorksheetFunction.EoMonth("1" & "/" & "January" & "/" & Me.ComboBox1.Value, i)

Me.ListBox1.AddItem Format(A, "MMMM")

Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Application.WorksheetFunction.SumIfs _

(Sheet1.Range("B:B"), Sheet1.Range("A:A"), _

">=" & A, Sheet1.Range("A:A"), "<=" & B)

Next i

End Sub