Setting Default Zoom Level?

Hello,
How can I set the default zoom level for all worksheets to a specific size
when ever a new sheet is opened? I've tried using this code, but it gives me
an error that says "Object variable or With block variable not set"

Sub Auto_Open()
ActiveWindow.Zoom = 85

End Sub

Thanks for any help.

Jim

Put this in the ThisWorkbook module. Then, even if someone has changed it,
each time the sheet is activated the zoom will change.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ActiveWindow.Zoom = 85
End Sub


--
Don Guillett
SalesAid Software
[email protected]
"Jim" <[email protected]> wrote in message
news:[email protected]...
> Hello,
> How can I set the default zoom level for all worksheets to a specific size
> when ever a new sheet is opened? I've tried using this code, but it gives
> me an error that says "Object variable or With block variable not set"
>
> Sub Auto_Open()
> ActiveWindow.Zoom = 85
>
> End Sub
>
> Thanks for any help.
>
> Jim
>
>