Hi,

Will this work for you?

Option Explicit
Dim CountRows As Integer
Sub RowsAtTop()
CountRows = InputBox("Enter number of rows to repeat at top.")
ActiveSheet.PageSetup.PrintTitleRows = "$1:" & CountRows
End Sub

"epuk" wrote:

Hi

I would like to be able to select the rows that should be repeated on each
page and then have a macro to put the rows in the field for rows to repeat
at top.

I have tried to record a macro, but I can't figure out how to have a
variable to put the rows in the field for rows to repeat at top.

Does anybody have such a macro?

Thanks in advance.
Kurt