Hi Jay:

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Regards,

Vasant.


"Jay Dean" wrote in message
om...
I am looking for a macro that will set any Excel sheet's page (no
mattet how many pages the page-break view shows) to just one page.
I would appreciate any assistance. Thanks.

Jay Dean.