J
John
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
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