try this
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim j As Long
Application.EnableAnimations = False
For j = 1 To Worksheets.Count
With Worksheets(j)
.Cells(1, 1).Value = Target.Value
End With
Next j
Application.EnableEvents = True
End Sub
NOTE: TARGET IS IN THE SHEET IN WHICH THE EVENT CODE IS ASSOCIATED WITH
SO WHEN YOU ENTER A VALUE IN A TARGET IT SHOULD BE IN THAT SHEET AND NOT IN AN;Y OTHER SHEET
e.g. if this event code is associated with sheet 1 target is in sheet 1.
Bookmarks