title: Get rid of repetitive code (Procedure Too Large Error)
body: <p>I want to get rid of these large blocks of repetitive code using "For Each" or any other helpful approach</p>
  
  <p>I only have the blocks of code repeated about 70 times but since it contains multiple dynamic values, I find it hard to use a "For Each"</p>
  
  <pre><code>Public Sub ToTextBox()
  Dim wsA As Worksheet
  Set wsA = Sheets("Compute")
  
  '1
  With Sheets("Slide Data").Shapes("TextBox 1")
      .TextFrame.Characters.Text = wsA.Range("b" &amp; Range("L2")).Value &amp; Chr(10) &amp; wsA.Range("c" &amp; Range("L2")).Value
      .TextFrame.Characters(1, 7).Font.Bold = True
      .TextFrame.Characters(1, 7).Font.Size = 7
      .TextFrame.Characters(1, 7).Font.Name = "Verdana"
      .TextFrame.HorizontalAlignment = xlHAlignCenter
  End With
  
      Sheets("Slide Data").Shapes("TextBox 1A").TextFrame.Characters.Text = Sheet3.Range("a" &amp; Range("L2")).Value
      Sheets("Slide Data").Shapes("TextBox 1B").TextFrame.Characters.Text = Sheet3.Range("k" &amp; Range("L2")).Value
      Sheets("Slide Data").Shapes("TextBox 1C").TextFrame.Characters.Text = Sheet3.Range("j" &amp; Range("L2")).Value
  
  '2   
  With Sheets("Slide Data").Shapes("TextBox 2")
      .TextFrame.Characters.Text = wsA.Range("b" &amp; Range("L2") + 1).Value &amp; Chr(10) &amp; wsA.Range("c" &amp; Range("L2") + 1).Value
      .TextFrame.Characters(1, 7).Font.Bold = True
      .TextFrame.Characters(1, 7).Font.Size = 7
      .TextFrame.Characters(1, 7).Font.Name = "Verdana"
      .TextFrame.HorizontalAlignment = xlHAlignCenter
  End With
  
      Sheets("Slide Data").Shapes("TextBox 2A").TextFrame.Characters.Text = Sheet3.Range("a" &amp; Range("L2") + 1).Value
      Sheets("Slide Data").Shapes("TextBox 2B").TextFrame.Characters.Text = Sheet3.Range("k" &amp; Range("L2") + 1).Value
      Sheets("Slide Data").Shapes("TextBox 2C").TextFrame.Characters.Text = Sheet3.Range("j" &amp; Range("L2") + 1).Value
  
  '3    
  With Sheets("Slide Data").Shapes("TextBox 3")
      .TextFrame.Characters.Text = wsA.Range("b" &amp; Range("L2") + 2).Value &amp; Chr(10) &amp; wsA.Range("c" &amp; Range("L2") + 2).Value
      .TextFrame.Characters(1, 7).Font.Bold = True
      .TextFrame.Characters(1, 7).Font.Size = 7
      .TextFrame.Characters(1, 7).Font.Name = "Verdana"
      .TextFrame.HorizontalAlignment = xlHAlignCenter
  End With
  
      Sheets("Slide Data").Shapes("TextBox 3A").TextFrame.Characters.Text = Sheet3.Range("a" &amp; Range("L2") + 2).Value
      Sheets("Slide Data").Shapes("TextBox 3B").TextFrame.Characters.Text = Sheet3.Range("k" &amp; Range("L2") + 2).Value
      Sheets("Slide Data").Shapes("TextBox 3C").TextFrame.Characters.Text = Sheet3.Range("j" &amp; Range("L2") + 2).Value
  
  'and 72 others
  
  
  End Sub
  </code></pre>
  
  <p>Looking for a loop approach to compress this code</p>