Hi Beginner,
Try the following syntax, run from the Sheet module.
 
Private Sub CommandButton1_Click()
    ComboBox1.Clear
    For Each cel In Range("Test1")
        ComboBox1.AddItem cel
    Next
End Sub