Scrolling

  • Thread starter Thread starter Elaine
  • Start date Start date
E

Elaine

Is it possible to scroll through multiple worksheets
within a workbook in sync? How do I do this? Thanks for
your help.
 
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
 
Back
Top