title: For each Worksheet in Worksheets not working
body: <p>I'm rather new to VBA coding, so excuse my ignorance, as I'm probably doing something super simple here wrong. I've written a small VBA script that aligns data for a worksheet, using a master list of names as a reference point. </p>
  
  <p>It works fine on one worksheet at a time, but when entered into a "For each worksheet in worksheets" loop, it applies it to the first worksheet and then stops. I've debugged it, and the "for each" part is working, but the code isn't being applied past the first worksheet. Any tips?</p>
  
  <p>I've tried moving the Dim both inside and outside of the "for each" variable, and it seems to make no difference. All references to the worksheet in the code are the variable that changes with each step, from my understanding.</p>
  
  <p><strong>I've made edits to the code as suggested, and it still seems to only apply to the first worksheet:</strong></p>
  
  <pre><code>Option Explicit
  
  Sub AlignAll()
  Dim Current As Worksheet
  Dim n As Long, x As Long, i As Long, a As Range, c As Range
  Set c = Worksheets("Masterlist").Range("A6:A200")
  
  For i = 1 To ThisWorkbook.Worksheets.Count
      Set Current = ThisWorkbook.Sheets(i)
          If Current.Name &lt;&gt; "Yearly" And Current.Name &lt;&gt; "Masterlist" Then 'Prevent Conflicts
              n = Cells.SpecialCells(11).Row
              'sets a as the range of the current worksheet and c as range of the master list
              Set a = Current.Range("A6:A200")
              a(n + 1) = Chr(255): c(n + 1) = Chr(255)
              a.Sort a(1), 1, Header:=xlNo
              c.Sort c(1), 1, Header:=xlNo
              Do
              x = x + 1 'steps through each range
              If a(x) &gt; c(x) Then 'adds rows as needed to align data
                  a(x).EntireRow.Insert xlShiftDown
              End If
              If x &gt; 10 ^ 4 Then Exit Do
              Loop Until a(x) = Chr(255) And c(x) = Chr(255)
              a(x).ClearContents: c(x).ClearContents 'resets variables
          End If
  Next i
  End Sub
  </code></pre>