Combolist - Wert auswählen und Datei öffnen

Private Sub CommandButton1_Click()
Dim intMonat As Integer
Dim Dateiname As String
Dim Pfad As String
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte erst Monat auswählen"
Else
intMonat = ComboBox1.ListIndex + 1
With Worksheets("Hauptmenü")
Pfad = "C:\XXX"
Dateiname = Cells(intMonat + 7, 20) ' Dateiname aus Zelle t8 auslesen
Application.Workbooks.Open (Pfad & Dateiname)
End With
Unload Me
End If
End Sub
Private Sub UserForm2_Initialize()
Dim intI As Integer
'AUswahlliste für Combobox erstellen
With Me.ComboBox1
For intI = 1 To 12
.AddItem Format(VBA.DateSerial(2014, intI, 1), "MMMM")
Next
End With
End Sub