View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bernie Deitrick Bernie Deitrick is offline
external usenet poster
 
Posts: 5,441
Default Simple problem, must be too early...

You have to select or activate a sheet to change its selection.

Sub Sync_Sheets()
Dim mySht As Worksheet
Dim rwSelect As Long

rwSelect = Selection.Cells(1).Row
Application.ScreenUpdating = False
For Each mySht In Worksheets
mySht.Select
Range("C" & rwSelect).Select
Next mySht

Sheets(14).Activate
Application.ScreenUpdating = True

End Sub


HTH,
Bernie
MS Excel MVP


"AD108" wrote in message
...
The Select method is failing below, not sure what I am doing wrong. My goal is to synchronize the
selection across several sheets. I am using "SelectionChange" event to fire little code below.

Thanks in advance for help.

Public rwSelect as integer

Sub Sync_Sheets()
Dim rng As Range
rwSelect = Selection.Row
Set rng = Sheets(2).Range("C" & rwSelect)
rng.Select
Sheets(14).Activate

End Sub