Change Default Zoom

Hi Guys,

I'm trying to create a public procedure to change the default zoom of spreadsheets. I tried the following however it returns the object not supported error:

Public Sub AutoOpen()
ActiveWindow.ActivePane.View.Zoom.Percentage = 200
End Sub

Your help will be greatfully received.

Cheers,

Amie

Hi Geek-Girl,

Try:

ActiveWindow.Zoom = 200

---
Regards,
Norman



"geek_girl" <geek_girl.1wqfqa_1129025100.7758@excelforum-nospam.com> wrote
in message news:geek_girl.1wqfqa_1129025100.7758@excelforum-nospam.com...
>
> Hi Guys,
>
> I'm trying to create a public procedure to change the default zoom of
> spreadsheets. I tried the following however it returns the object not
> supported error:
>
> Public Sub AutoOpen()
> ActiveWindow.ActivePane.View.Zoom.Percentage = 200
> End Sub
>
> Your help will be greatfully received.
>
> Cheers,
>
> Amie
>
>
> --
> geek_girl
> ------------------------------------------------------------------------
> geek_girl's Profile:
> http://www.excelforum.com/member.php...o&userid=27999
> View this thread: http://www.excelforum.com/showthread...hreadid=474997
>