The code below works fine…

Dim shpGroup(10) As Shape
Dim shpTemp As Shape
Dim element
For element = 1 To 10
Set shpGroup(element) = ActiveSheet.Shapes(element)
If shpGroup(element).Type = msoGroup Then
For Each shpTemp In shpGroup(element).GroupItems
Debug.Print "index = " & element, " group " & shpGroup(element).Name,
shpTemp.Name
Next shpTemp
Else
Debug.Print "index = " & element, " shape ", , shpGroup(element).Name
End If
Next element

but statement…

For Each element In ActiveSheet.Shapes(Count) '? .Count .Index

gives error <index unavailable

Any possible reason ?