I have 12 worksheets, I need to create a combobox in each one with
ListFill Range From A1:A12 in "Utlities" worksheet (separate ws)
Each worksheet should also be named from the A1:A12 range,
e.g.A1 = Thomas
Therefore wks 1 should be called Thomas

the code below doesnt quite work...

Sub combo()
Dim Wks As Worksheet
For Each Wks In Worksheets
Range("a1").Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combo Box.1", Link:=False, _
DisplayAsIcon:=False, Left:=59.75, Top:=5.25, Width:=114, Height:= _
20.25).Select

Next
End Sub