Move Screen- Selection at screen’s top-left (Excel 2002)

Topic

New Reply

I have a workbook with multiple sheets formatted exactly the same way. Is there a way to move the screen – placing currently selected cell in top-left of screen on multiple selected sheets so that when I scroll to each worksheet I will see it in the same view? Is there a command available to do this? TIA

Reply | Quote

Replies

If you place the code below in the Worksheet Activate event routine for a worksheet, then when that sheet is activated it will automatically scroll to the same view as worksheet Sheet1. The code can be placed in the Activate event routine of as many sheets as required. Replace the reference to “Sheet1” with the sheet name of the sheet you want the others to scroll to.


Option Explicit

Private Sub Worksheet_Activate()
Dim oTgt As Worksheet
Dim strUL As String
Set oTgt = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
Worksheets("Sheet1").Activate
strUL = ActiveWindow.VisibleRange.Cells(1, 1).Address
oTgt.Activate
Application.Goto ActiveSheet.Range(strUL), True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


Reply | Quote

Thanks Legare for adding another automation wonder for my excel-rience!!! Truly this place is a “Woody Wonder Lounge”

Reply | Quote