How can I get the cursor to remain in the same position when using multiple
worksheets?
For example, all worksheets start in cell A5 nad then if I move to A10, all
worksheets go to A10 and so on.

Hi Mac,

Paste this into the ThisWorkbook module. It should do the trick.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)

Dim ws As Worksheet

Application.ScreenUpdating = False
Application.EnableEvents = False

For Each ws In Worksheets
ws.Activate
ws.Range(Target.Address).Activate
Next ws

Sh.Activate
Application.EnableEvents = True

End Sub
Regards,

Gary

Sorry, Mac! I read your request as cell selection, not scrolling.
That's a different problem. If I have more time, I'll post something if
nobody answers your question.

Gary

Gary, thanks for the info. i will try it.
Mac

"GaryDK" wrote:

Hi Mac,

Paste this into the ThisWorkbook module. It should do the trick.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)

Dim ws As Worksheet

Application.ScreenUpdating = False
Application.EnableEvents = False

For Each ws In Worksheets
ws.Activate
ws.Range(Target.Address).Activate
Next ws

Sh.Activate
Application.EnableEvents = True

End Sub
Regards,

Gary