Garry, here is one way

Range("A1:AL25").Select
ActiveWindow.Zoom = True
Range("A1").Select

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"GarryH" wrote in message
...
I have created a Workbook_Open macro that selects a range and zoom, but the
macro only records the setting on the PC that it was created on, i.e 100%.
Can this 100 be changed within the macro to make use of the Selection
option
in zoom so that it will work on other PC's with different screen
sizes/resolutions?