Sub main()
Dim myobj As OLEObject, target As Range, i As Integer
For i = 1 To 100
Set target = Sheet1.Range("c" & i)
Set myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False, DisplayAsIcon:=False, Left:=target.Left, Top:=target.Top, Width:=target.Width, Height:=target.Height)
myobj.Visible = True
myobj.Object.List = Array(1, 2, 3, 4, 5, 6, 7)
'Randomize
'myobj.Object.ListIndex = Int(Rnd * 7)
Next
End Sub