Move Screen to mimic active sheet

Put this in the ThisWorkbook code module. Change the sheet names to suit.

Dim ScrRow As Long, ScrCol As Long, bIgnor As Boolean

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     Dim sh1 As Worksheet, sh2 As Worksheet
     If Not bIgnor Then
        Set sh1 = Sheets("Sheet1")
        Set sh2 = Sheets("Sheet2")
        bIgnor = True
        Select Case Sh.Name
            Case sh1.Name, sh2.Name
                If Sh Is sh1 Then sh2.Activate Else sh1.Activate
                ScrRow = ActiveWindow.ScrollRow
                ScrCol = ActiveWindow.ScrollColumn
                Sh.Activate
                ActiveWindow.ScrollRow = ScrRow
                ActiveWindow.ScrollColumn = ScrCol
        End Select
        bIgnor = False
     End If
End Sub