Try this
Range("b3:g10").Select
ActiveWindow.Zoom = True
--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl
"Dave B" wrote in message ...
I want to assign a macro to an autoshape that zooms to a desired range of cells in the same workbook, on the same sheet, and
adjusts the zoom automatically, filling my available screen size with the desired cell range. Can this be done?