If you place your combo box on the sheet, and your list is on sheet 2 column A, this code will populate the combo box
   ComboBox1.List = _
      Worksheets("Sheet2").Range("A1") _
      .CurrentRegion.Columns("A").Value