title: How to insert shape into specified cell using "for each shape in activesheet.shapes" in excel vba
body: <p>I am asking for hint with following problem. How to add to specified cells shapes from activesheet? I am able to add shape when I know the name but don't know how to implement forumla for each shape in...</p>
  
  <p>Currently I have something like this:</p>
  
  <pre><code>Sub loop()
  
  Dim a As Integer
  Dim b As Integer
  Dim c As Integer
  
  For a = 1 To 10
      For b = 1 To 10
  
          ActiveSheet.Shapes.AddShape("Shape_Name", Cells(a, b), Cells(j, k), 10).Select
  
      Next a
  Next b
  End Sub
  </code></pre>
  
  <p>But I need something using this:</p>
  
  <pre><code>For Each Shape In ActiveSheet.Shapes
  </code></pre>