This does PICTURES only, not other shapes.
remove comment on volatility if needed

Function NumPicsInRange(rngToSearch As Range)
'application.volatile
Dim n&, pic
For Each pic In ActiveSheet.Pictures
If Not Intersect(rngToSearch, pic.TopLeftCell) Is Nothing Then n = n + 1
Next
NumPicsInRange = n
End Function


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Connie" wrote:

Dear all,

Do you know how to sum the number of pictures in a same
column?

Thanks and Regards,
Connie