Create Listbox Programatically

Create Listbox in Worksheet

Sub Craete_Listbox_From_Form_Control()
Dim Lb As ListBox
With Range("A5:A10")
Set Lb = ActiveSheet.ListBoxes.Add( _
Height:=.Height, _
Top:=.Top, _
Left:=.Left, _
Width:=.Width)
Lb.Name = "Listbox"
End With

Consider Listbox as shape and add the data:

Dim shp As Shape
Set shp = ActiveSheet.Shapes("Listbox")
shp.ControlFormat.RemoveAllItems

With shp.ControlFormat
.AddItem "Apple"
.AddItem "Orange"
.AddItem "Papaya"
End With

End Sub