Combobox in tabelle einfügen mit werten

Sub Makro1()
For x = 1 To 10
l = Cells(1, x).Left
t = Cells(1, x).Top
h = Cells(1, x).Height
neu = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=l, Top:=t, Width:=61.5, Height:=h + 2).Select
'Call test
Next
End Sub

Sub test()
neu.List = myList(Sheets(1), 1)
End Sub

Function myList(sh As Worksheet, lngCol As Long)
Dim vntList(), n As Long, vntC, vntTmp
Dim myCol As New Collection
With sh
ReDim vntList(1 To 1, 1 To Application.CountA(.Columns(lngCol)))
vntTmp = .Range(.Cells(1, lngCol), .Cells(Rows.Count, lngCol).End(xlUp))
End With
For Each vntC In vntTmp
Err.Clear
On Error Resume Next
myCol.Add vntC, CStr(vntC)
If Err.Number = 0 Then
n = n + 1
vntList(1, n) = vntC
End If
Next
ReDim Preserve vntList(1 To 1, 1 To n)
myList = WorksheetFunction.Transpose(vntList)
End Function

P.s Hintergrund des ganzen ich will so eine Art autofilter erstellen weil der Autofilter ja eine Obergrenze von 1000 hat.