naplnenie comboboxu excel vba

Potrebujem naplnit combobox na excelovskom harku zoznamom harkov z ineho zozita. Kedze som tam zapasil s problemami, tak som stiahol priklad a vytvoril jednoduchy priklad , na ktorom by som to vyskusal. A ejhla, ale tam je chyba , Object required. Makro Vyber je priradene na tlacitko na skusanie
Niekto skusenejsi? Opravit tak, aby sa nemuselo ist cez OLE
ked pisem ten prikaz, tak po bodke mi napoveda ponuka v pohode na vyber

Sub vyber()

ComboBox_Create
ComboBox_InputRange

End Sub

Sub ComboBox_Create()

Dim Cell As Range
Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets("hárok1")

sht.DropDowns.Add(20, 20, 100, 15).Name = "ComboBox1"

End Sub

Sub ComboBox_InputRange()

Dim Cell As Range
Dim sht As Worksheet
Dim myArray As Variant
Dim myDropDown As Shape

Set sht = ThisWorkbook.Worksheets("hárok1")
Set myDropDown = sht.Shapes("ComboBox1")
myArray = Array("Q1", "Q2", "Q3", "Q4")

myDropDown.OLEFormat.Object.List = Array("Q1", "Q2", "Q3", "Q4") ' tento funguje

myDropDown.ControlFormat.List = Array("Q1", "Q2", "Q3", "Q4") ' Object required

End Sub