I created a macro to copy comboboxes - thanks to Dave Peterson and Tom Ogilvy
posts. The macro is as follows:

Sub Employees()
Dim OLEObj As OLEObject
Dim myOLEObj As MSForms.ComboBox
Dim myRng As Range
Dim myCell As Range
Dim myList As Range

With Worksheets("Employees")
Set myList = .Range("a2:b105")
End With

With Worksheets("Test")
Set myRng = .Range("L7:L525")
For Each myCell In myRng.Cells
With myCell
.NumberFormat = ";;;" 'hide the value in the cell
Set OLEObj = .Parent.OLEObjects.Add _
(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, _
Top:=.Top, _
Left:=.Left, _
Width:=.Width, _
Height:=.Height)

End With
Set myOLEObj = OLEObj.Object
With myOLEObj
.ColumnWidths = "0;100"
.ColumnCount = 2
.ListRows = 15
End With

With OLEObj
.LinkedCell = myCell.Address(external:=True)
.ListFillRange = myList.Address(external:=True)

End With

Next myCell
End With
End Sub

I have 2 almost identical macros, one for employees and one for
classifications. The first time I ran them it worked fine. I'm trying to
make 5 "pairs" of columns. After changing the range to the next column I get
the run time error 2147319765(8002802b) Automation Error Element not found.

Does anybody have any ideas?
Thanks in advance for your help.
Bruce