Sub AutoOpen() ActiveWindow.View.Type = 3 ActiveWindow.View.Zoom.Percentage = 300 End Sub Sub AutoNew() ActiveWindow.View.Type = 3 ActiveWindow.View.Zoom.Percentage = 300 End Sub