Simultaneous Scrolling

If you have worksheets that are very similar in nature, you may like to work with them side-by-side on the screen at the same time. This makes it easy to examine both worksheets for differences or for other reasons. It can be a bother, however, to scroll down at the same rate in both worksheets. First you have to scroll in one window, then in the other.

As with most tedious tasks, you can automate the process a bit. Consider the following macros:

Sub myScrollDown()
    ActiveWindow.SmallScroll Down:=1
    ActiveWindow.ActivateNext
    ActiveWindow.SmallScroll Down:=1
    ActiveWindow.ActivatePrevious
End Sub

Sub myScrollUp()
    ActiveWindow.SmallScroll Up:=1
    ActiveWindow.ActivateNext
    ActiveWindow.SmallScroll Up:=1
    ActiveWindow.ActivatePrevious
End Sub

If you add these to a workbook, and then assign them to a toolbar button, a shortcut key, or the Quick Access toolbar you can scroll through both workbooks at the same rate. The SmallScroll method is used to move down one row at a time through a window. If you want to scroll a page at a time, simply replace all instances of SmallScroll with the LargeScroll method.