Rows to repeat at top VBA needed

[rusted314]

Does a simple VBA exist to repeat the rows at the top of multiple sheets. I have a document with 70+ sheets and I want to row 1 to repeat on every page. I can not group them and need to do individually and would like to automate if possible.

Thanks

 

[MrKowz]

No need for a VBA code!

Go to File>Page Setup>Sheet and there is an option in there for "Rows to repeat at top:"

Click on the little button in the box and CTRL+click the rows you want repeated.

 

[VoG]

Try

Sub InsRow1()
Dim i As Long
For i = 2 To Worksheets.Count
    Sheets(1).Rows(1).Copy
    Sheets(i).Rows(1).Insert
Next i
End Sub

 

[rusted314]

Thank you both for the quick reply. Perhaps I didn't make myself clear. I am looking for the "Rows to repeat at top" box to autopopulate with $1:$1 for all 70+ sheets without having to go into each sheet individually to add this. When I try grouping the data it is greyed out and will not allow me to add. I am using Excel 2003.

Thanks again

 

[MrKowz]

Try:

Sub RepeatRow()
Dim i As Long
For i = 1 To Worksheets.Count
    Sheets(i).PageSetup.PrintTitleRows = "$1:$1"
Next i
End Sub

 

[rusted314]

Perfect. Thank you!