Try adding this to the end of the code

activewindow.Zoom=75%

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"John" wrote in message
...
I have the following code which runs upon opening my workbook. How would I
include to View of this "Current Week" to 75% upon open also? I have a
user
that changes it to 100% each time they use it

Thanks



Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
Next sh
ThisWorkbook.Sheets("Current Week").Select
Application.ScreenUpdating = True
Range("C6").Select

End Sub