Given the following code

with oExcel.ActiveSheet.PageSetup
    .LeftMargin = .35
    .RightMargin = .35
    .FitToPagesWide = 1
    .FitToPagesTall = 1
endwith     	

Why doesn't the fit to pages function work? My sheet is still spread over 4 pages.
There is no error, just nothing seems to be different.

Thanks