title: Loop for all worksheet in a workbook is not working
body: <p>I would to copy paste the first cell of a sheet trough the last row for all sheets in a workbook and my code is not working, the code is done on the active sheet only.</p>
  
  <pre><code>Sub Macro5()
  '
  ' Macro5
  
   Dim ws As Worksheet
  
   For Each ws In ActiveWorkbook.Worksheets
  
       Range("A2").Copy Destination:=Range("A3:A" &amp; Cells(Rows.Count, "B").End(xlUp).Row)
  
   Next ws
  
  End Sub
  </code></pre>
  
  <p>Thanks for your help</p>