View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson
 
Posts: n/a
Default have sheets 2 and 3 scroll the same when scrolling sheet 1?

Maybe with a little code:

I put this behind the ThisWorkbook module:

Option Explicit
Dim CurRow As Long
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case LCase(Sh.Name)
Case Is = "sheet1", "sheet2", "sheet4"
If CurRow 0 Then
Application.Goto Sh.Cells(CurRow, 1), scroll:=True
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 = ActiveCell.Row
End Select
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

If you want to read more about these kinds of events:

Chip Pearson's site:
http://www.cpearson.com/excel/events.htm

David McRitchie's site:
http://www.mvps.org/dmcritchie/excel/event.htm



billy boy wrote:

Is it possible to have worksheets scroll at the same time? For example when
you scroll down to line 100 on sheet 1 and then you go to sheet 2 or 3 or 4
that sheet will be on line 100 also?


--

Dave Peterson