Dear ,

all the controls on the sheets are referred as Shape

try the below code

Sub hhgg()
Dim x As Shapes
Dim y As Long
Dim z As Long
Dim str As String
Set x = Application.Sheets(1).Shapes
y = x.Count
For z = 1 To y

str = str & Chr(13) & " " & x(z).Name

Next z
MsgBox str
End Sub


Instead of Using ActiveX Use normal controls Because u can attach them to any any cell value.