Find shapes in sheet

[nungaorae]

Use VB6 call excel.application.
Want command to find group shape in sheet for get max num of shape.

thank you for helping.

: pray2:

[Bob Phillips]

Perhaps



For Each shp In ActiveSheet.Shapes
c = c + 1
Next shp
MsgBox "Ther are " & c & " shapes"

[nungaorae]

if have shapes in sheet following :
Group 1,Group 2,Group 3, Group 5,Group 10

want max number of shapes

Result => 10

please example code

thank you
:friends:

[Bob Phillips]

Don't understand the question.

[grichey]

=max([range]) ???

[Ago]

is Group 1-10 the names of your sheets?
is it the name of the shapes?