select the area you want to display

Worksheets("Sheet1").Select
Range("A1:M30").Select
ActiveWindow.Zoom = True

Excel will do the best it can to fit that in the visiblerange.

--
Regards,
Tom Ogilvy

"caldog" wrote in message
...
I see another question has been asked about screen sizing, but the
suggestions to that user just doesn't seem to work for me, can somebody
help
me. I have tried as suggested in that other question [set rng =
ActiveWindow.VisibleRange], but all I get is an error.

So here is what I'm trying to do. I have several sheets that have columns
that extend outside of the screen width. I would like all columns to be
seen.

Any help would be appreciated.

Steve