Maybe I don't understand????
[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
'advantages over old version
'can move it to different sheets without changing sheet name in code
'handles more rows for new versions of excel
'still works if sheet name is changed
'handles blanks well in data validation use

Dim n As Long

n = Me.Range("G" & Me.Rows.Count).End(xlUp).Row
Me.Range("A1:G" & n).Name = "GenRepPrint"

End Sub[/VBA]