Hi Craig,

Sorry for the long delay in responding to your post!

The DropDowns collection has been replaced with ActiveX Shapes, you should be able to change your block to:

[vba] Dim CB As OLEObject
Set CB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=74.25, Top:=75, Width:=108.75, Height:=30)
With CB
.Name = Name
.ListFillRange = Source
.Object.ListIndex = 0 ' .ListIndex = 0
.Object.ListRows = 8 ' .DropDownLines = 8
' .Display3DShading = False
End With[/vba]

Then for your selected value you could use [vba]SelectedValue = CB.Object.List(CB.Object.ListIndex)[/vba]