title: Loop to create a chart for each row
body: <p>I'm trying to make a loop that will create a chart for each row in my Excel sheet. I can't use a sparkline.</p>
  
  <pre><code>Sub chartcreation()
  '
   chartcreation Macro
  '  
   Sub Main()
  
    x$ = 2
  
  Do While Cells(x$, 2) &lt;&gt; ""
  
      Range("A1:Tx$").Select
      Range("Tx$").Activate
      ActiveSheet.Shapes.AddChart2(227, xlLine).Select
      ActiveChart.SetSourceData Source:=Range("MAY!$A$1:$T$1",MAY!A$(x$)$T$x$")
      ActiveSheet.Shapes("Chart 3").IncrementLeft 380.6249606299
      ActiveSheet.Shapes("Chart 3").IncrementTop -270
  
      x = x + 1
  
  End Sub
  </code></pre>