Sub dd()
Dim i As Integer, a As Double
For i = 1 To 15
a = a + Sheets("Arkusz1").Shapes("ComboBox" & i).OLEFormat.Object.Object.Value
Next i
MsgBox a
End Sub

Sub Wylicz(Wsh As Worksheet)
    Dim Obj As OLEObject
    For Each Obj In Wsh.OLEObjects
        With Obj
            If .progID = "Forms.ComboBox.1" Then
                MsgBox .Name & vbNewLine & TypeName(.Object) & vbNewLine & .Object.ListCount
            End If
        End With
    Next
    MsgBox "Wsh.OLEObjects(""ComboBox1"").Object.ListCount -->" & Wsh.OLEObjects("ComboBox1").Object.ListCount
    MsgBox "Wsh.Shapes(""ComboBox1"").OLEFormat.Object.Object.ListCount --> " & Wsh.Shapes("ComboBox1").OLEFormat.Object.Object.ListCount
End Sub

'----------------------------------------------------------
' VBA Class Document Codename: Arkusz5
' Name : moj_arkusz
'----------------------------------------------------------
Option Explicit

Sub Test()
    Call Wylicz(Me)
End Sub