Assign the data in a worksheet to RowSource of a ListBox
Private Sub obMonths_Click() ListBox1.RowSource = "Sheet1!Months" End Sub