Combobox'a ayları yazan excel macro kodu

Private Sub UserForm_Initialize()
Dim i%
Dim TMP$
    ComboBox1.Clear
    For i = 1 To 12
        TMP = Format(DateSerial(2004, i, 1), "mmmm")
        ComboBox1.AddItem TMP
    Next i
    ComboBox1.ListIndex = 0
End Sub