Try:

ActiveSheet.PageSetup.PrintArea = Selection.Address

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"JT" wrote in message
...
I have a spreadsheet and I want the macro to set the print
area for me each time since the amount of data will be
chaning on a regular basis. I have the following from
using the macro recorder but it is not working. The macro
recorder hardcoded the cell addresses based on the current
data. I'm trying to change it to change the print area to
the selected cells. Any suggestions would be
appreciated. Here's the code I tried:

Sub Print_Area()

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select

(The above lines properly select the data I want. The
following line is where I have the problem. I just don't
know the proper syntax.)

ActiveSheet.PageSetup.PrintArea = Selection

End Sub

Thanks for the help.