The error has nothing to do with data being on another sheet. To populate a combobox like this, you need to use the following syntax:

ThisWorkbook.Sheets("Sheet1").DropDowns("Drop Down 1").ListFillRange = "Sheet2!$A$1:$A$4"