Sortieren über "ComboBox"

Private Sub CommandButton1_Click()
Range("A4:BN320").AutoFilter Field:=51 + ComboBox1.ListIndex, Criteria1:=""
Unload Me
End Sub

Private Sub UserForm_Activate()
Dim intC As Integer
With ComboBox1
For intC = 1 To 24
.AddItem Cells(1, intC).Text
Next
.ListIndex = 0
End With
End Sub

Ist so etwas auch über den Filter und sortieren möglich?
Mein Makro Versuch
Funktioniert aber leider nicht!!!

Private Sub CommandButton1_Click()
Range("A3:AZ5000").Sort Key:=1 + ComboBox1.ListIndex, Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Unload Me
End Sub

Private Sub UserForm_Activate()
Dim intC As Integer
With ComboBox1
For intC = 1 To 24
.AddItem Cells(1, intC).Text
Next
.ListIndex = 0
End With
End Sub

Kann mir einer weiterhelfen?
Im Vorraus vielen Dank!
Gruß Andreas