ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=577.941176470588, Top:=11.4705882352941, _
Width:=80.2941176470588, Height:=31.7647058823529).Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.TopLeftCell.Address= "$A$13" Then
Sh.ControlFormat.LinkedCell = "$B$13"
End If
Next