With Activesheet
.PageSetup.PrintArea = .Range(.Range("A1"), _
.Range("G200")).Address(External:=True)
End With

--
Regards,
Tom Ogilvy

"NascarIsKing" wrote in message
.. .
on the excel sheet that I have formatted, I forgot how to end it at a
certain point. In other words, lets say I want the page to end at line or
row 200 and Column G. How would I do that so when printing I dont have to
print selections. Thank you,
NK