You can try this against a copy of your workbook (just in case....).
Open excel and open your workbook.
rightclick on the excel icon to the left of the File|Edit|view|... menubar.
select view code.
Paste this code (I like it better than the first suggestion) into the codewindow
that just opened up (righthand side window)
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 = "sheet1", "sheet2", "sheet4"
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 = "sheet1", "sheet2", "sheet4"
CurRow = ActiveWindow.ScrollRow
CurCol = ActiveWindow.ScrollColumn
ActCellAddr = ActiveCell.Address
End Select
End Sub
Change the names in this line:
Case Is = "sheet1", "sheet2", "sheet4"
to match the sheets that should be affected -- in both spots, too. And make
sure you use all lower case letters.