Sub Add_Values_To_ComboBox()
Dim Sh As Worksheet
Set Sh = ActiveWorkbook.Sheets("Sheet2")
Sh.Range("H3:H7").Name = "Fruits"
Dim Shp As Shape
For S = 1 To 2
Set Shp = Sh.Shapes("Drop Down " & S)
Shp.ControlFormat.RemoveAllItems
For r = 1 To Sh.Range("Fruits").Rows.Count
Shp.ControlFormat.AddItem Sh.Range("Fruits").Rows(r).Value
Next
Next
End Sub

Sub Extract_Selected_Data_From_Combobox()
Dim Sh As Worksheet
Set Sh = ActiveWorkbook.Sheets("Sheet2")
Dim S As Integer
Dim Shp As Shape
For S = 1 To 2
Set Shp = Sh.Shapes("Drop Down " & S)
MsgBox Shp.ControlFormat.List(Shp.ControlFormat.Value)

Next
End Sub