Worksheets("Sheet1").OLEObjects("MyComboBox").ListFillRange = Workbooks("Stats 2009.xls").Worksheets("Forums").Range("A3:A14").Address(, , , True)