Hi,

If you want to fill single word, try this code

With Sheet1.ComboBox1
.Value = "Test"
End With

If you want to fill a range of list then try the following.

Dim n As Integer
n = Cells(Rows.Count, "A").End(xlUp).Row
With Sheet1.ComboBox1
.AutoSize = False
.AutoTab = False
.List = Worksheets("Sheet1").Range("A1:A" & n).Value 'Range of
List containing in the Column A:A
End With

Regards,
Kannan