How to sum the number of pictures in a column?

  • Thread starter Thread starter Connie
  • Start date Start date
C

Connie

Dear all,

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

Thanks and Regards,
Connie
 
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 >
 
Back
Top