No need for the "$"s or the With...End With.

Dim row_num As Long
row_Num = ActiveCell.Row
ActiveSheet.PageSetup.PrintTitleRows = row_num & ":" & row_num


In article ,
"Dr. M" wrote:

For those of you keeping track at home:

row_num = ActiveCell.Row
'make value printtitlerows will accept
header_row = "$" & row_num & ":$" & row_num

With ActiveSheet.PageSetup
.PrintTitleRows = header_row
End With