Setting Default Zoom Level?

[Jim]

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 Autpen()
ActiveWindow.Zoom = 85

End Sub

Thanks for any help.

Jim

 

[Don Guillett]

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