Synchronize Scroll & Zoom Level Across Sheets Automatically

[BurdoJ]

Hi,

I'm looking for a code to have all the sheets in my workbook scroll together and adjust their zoom level.
For example, if I zoom to 70% on Sheet 1 and scroll down to display cell J93 in the bottom left corner, I would like Sheet 2 to also be at 70% and have J93 be at the bottom left corner when I click on it.

Preferably, I would like for the sheets to adjust accordingly only when I click on them and for the macro not to have to loop through each one whenever I change one sheet (my workbook has 52 sheets for weeks of the year, plus summary sheets, so it would be very draining for it to loop through each).

I've already found a macro to have the scroll match across sheets as I adjust and click on them, but I was hoping for a code that would incorporate synchronized zoom into it as well.

Thanks in advance for your help,

 

[BurdoJ]

VBA - Synchronize Scroll & Zoom Level Across Sheets

Anything guys?

Here's the code I'm using for the synchornized scrolling. Any ideas on how to incorporate synchronized zooming into it as well?

Option Explicit
Dim CurRow As Long
Dim CurCol As Long
Dim ActCellAddr As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case LCase(Sh.Name)
Case Is = "sheet 1", "sheet 2", "sheet 3"
If CurRow > 0 Then
With Application
.EnableEvents = False
.Goto Sh.Cells(CurRow, CurCol), Scroll:=True
Sh.Range(ActCellAddr).Select
.EnableEvents = True
End With
End If
End Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
Select Case LCase(Sh.Name)
Case Is = "sheet 1", "sheet 2", "sheet 3"
CurRow = ActiveWindow.ScrollRow
CurCol = ActiveWindow.ScrollColumn
ActCellAddr = ActiveCell.Address
End Select
End Sub

Much appreciated.