Sub AD()
With Sheets(1).PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 500
End With

End Sub

--
Regards,
Tom Ogilvy


"Josh O." wrote in message
...
I have the following code in one of my macros. The code works and changes
the "Fit to " fields in the Page Setup up, but it doesn't select that I
want
it to apply that way on the sheet. It changes the fit to but leaves the
"Adjust to" radio button selected. How do I have the code select the "Fit
to" option?

With Sheets(1).PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 500
End With