title: Iterate thought ALL the (even if grouped) shapes in a sheet / EXCEL VBA
body: <p>Code below does not account for grouped shapes. Is there a work around?</p>
  
  <pre><code>Sub LoopThruShapes()
     Dim sh As Shape
     i=1
     For Each sh In ActiveSheet.Shapes
        Cells(i, 1).value = sh.name
     Next
  End Sub
  </code></pre>
  
  <p>source:
  <a href="http://www.java2s.com/Code/VBA-Excel-Access-Word/Excel/LoopingthroughaCollectionofShapes.htm" rel="nofollow">http://www.java2s.com/Code/VBA-Excel-Access-Word/Excel/LoopingthroughaCollectionofShapes.htm</a></p>