Elaine,
You need to use the code below in the Thisworkbook's codemodule.
HTH,
Bernie
MS Excel MVP
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target
As Range)
Dim Rscr As Long
Dim Cscr As Long
Dim mySht As Worksheet
Cscr = ActiveWindow.ScrollColumn
Rscr = ActiveWindow.ScrollRow
Application.EnableEvents = False
For Each mySht In ThisWorkbook.Worksheets
mySht.Select
ActiveWindow.ScrollColumn = Cscr
ActiveWindow.ScrollRow = Rscr
mySht.Range(Target.Address).Select 'This is optional
Next mySht
sh.Select
Application.EnableEvents = True
End Sub
