Thread: Copy First Row into the First Row of all worksheets

Hello,

I've been working on creating this line of script but keep getting errors. I need the first row on the first worksheet to copy to the remaining worksheets on the first row. Literally row 1 from the first sheet will pasted in row 1 of the remaining sheets. Here's the final script that I tried.

Sub Top_Row_Paste()

Dim ws As Worksheet, i As Integer, r As Range

Set r = Worksheets(1).Range("A1")
Set ws = Worksheet(i)
i = i + 1

For Each ws In ActiveWorkbook.Worksheets
   r.EntireRow.Copy Destination:=Range("A1")

Next ws
   
End Sub

The Set r statement is all ways being highlighted even if i call the worksheet by name.

Thanks for the help.

Leith,
Thanks for the reply. I tried to add the ws to the statement and got another error "mismatch" and "Script out of Range" errors. However, I changed the script to the following and it worked.

Sub Top_Row_Paste()

Dim ws As Variant, i As Integer, r As Range

Set r = Worksheets(1).Range("A1")
Set ws = Worksheets(Worksheets.Count)
i = i + 1

For Each ws In ActiveWorkbook.Worksheets
   r.EntireRow.Copy Destination:=ws.Range("A1")

Next ws
   
End Sub

Thank you for the response!