Page Set Up Macro: Prompt for PrintTitleRows

[adam_neb]

My Page Set Up Macro currently repeats row 1:14. I would like the Macro to prompt me to enter the last row to be included in the PrintTitleRows.

Current:

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$14"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

I use this Macro on many different spreadsheets throughout the day that come to me from many sources. However, not all require rows 1:14 to be repeated... some may be rows 1:3, 1:7, 1:5, etc. I would like to run the Macro and have a prompt appear which would allow me to enter the final row to be included in the PrintTitleRows portion of the Macro.

How would I change my Macro to prompt for this? Thank you!

 

[VoG]

Try like this

Dim i As Long
i = Application.InputBox("Enter number of rows", Type:=1)
With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$" & i
    .PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

 

[MrKowz]

Perhaps something like this? It will allow you to select the rows to include when the macro runs:

Dim TitleRowRange As Range
Set TitleRowRange = InputBox("What rows would you like to include?", Type:=8)
With ActiveSheet.PageSetup
    .PrintTitleRows = TitleRowRange.Address
    .PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

 

[adam_neb]

Peter: that worked exactly as I needed.. thank you very much.

MrKowz: when I tried your suggestion I received an error message:
Compile error: Named argument not found