I've hunted around for a solution to the page formatting problem within VBA
(very slow). Thought I'd found one but keep getting an error. can you see
anything obviously wrong with this?

Sheets("Statistics").Select
With Worksheets("statistics").PageSetup
.fitToPageWide = 1
.FitToPagesTall = False
.Orientation = xlLandscape
End With

it says theres an error with .fittopageswide = 1