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