I have a workbook that inserts sheets from a template, and after it is inserted I want to create a worksheet dropdown list that references a range of dates on another worksheet. When trying to define the ListFillRange of the DropDown list, it gives me returns "
Run-time error '-2147417848 (80010108)':
Method 'ListFillRange' of object 'DropDown1' failed
" Here is the code:
Code
Dim DropDown1 As DropDown
...
ListFillD = "'" & Me.txtOpName & " Usage Calc'!$A$1:$A$2"
Set WS = Worksheets(Me.txtOpName & " Summary")
Set DropDown1 = WS.DropDowns.Add(681, 129, 104.25, 15.75)
With DropDown1
.ListFillRange = ListFillD
.LinkedCell = "$G$9"
.DropDownLines = 8
End With
According to http://support.microsoft.com/default.aspx?scid=kb;en-us;270589 the problem has to do with late binding. I have had a lot of difficulty coming up with anything about early binding and something similar to a worksheet combobox. Thanks for any help!
-Zack