Sub Workaround()
Dim RowScr As Long
Dim ColScr As Long
Dim Winzom As Long

Application.ScreenUpdating = False
Sheets(2).Activate
With ActiveWindow
    RowScr = .ScrollRow
    ColScr = .ScrollColumn
    Winzom = .Zoom
End With
Sheets(1).Activate

Application.ScreenUpdating = True

MsgBox "RowScr: " & RowScr & vbCrLf _
    & "ColScr: " & ColScr & vbCrLf _
    & "WinZom: " & Winzom
    
End Sub