What I would like to do is generate a list of the three hyperlinks.
Code: Select all
Sub countRangeImg()
Cnt = 0
For Each shp In ActiveSheet.Shapes
If Not Application.Intersect(Range("J2:J2"), shp.TopLeftCell) Is Nothing Then
Cnt = Cnt + 1
End If
Next
MsgBox Cnt
End Sub