Set View to 75% upon Workbook open
Thanks Bob
"Bob Phillips" wrote in message
...
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
|