title: Add worksheet name to rows in multiple sheets
body: <p>Let's say I got a workbook with 100 sheets and I want to iterate in every sheet, and where cells of column C are not null to print the worksheet name on the corresponding b column. </p>
  
  <p>The original workSheet 1 is:</p>
  
  <pre><code>a    | b   | c 
  123 | null | John
  345 | null | Arya
  678 | null | Sansa
  </code></pre>
  
  <p>and i want it to be transformed to</p>
  
  <pre><code>a   | b      | c 
  123 | Sheet1 | John
  345 | Sheet1 | Arya
  678 | Sheet1 | Sansa
  </code></pre>
  
  <p>I want this loop to iterate in every worksheet of the workbook and the range in each sheet is not standard. Here's the code I created by reading various posts but it doesn't work</p>
  
  <pre><code>Dim LastRow As Long
   Sub Correction()
    Application.ScreenUpdating = False
     Dim i As Long
     Dim j As Integer
     x = Sheets.Count
      For j = x To 1 Step -1
       LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row
          For i = 2 To LastRow
              ActiveSheet.Cells("B", i) = ActiveSheet.Name
          Next i
        Next j
     Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>I'm novice..</p>