Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Set zona1 = Range(Cells(1, 1), Cells(1000, 1))
If Not Intersect(Target, zona1) Is Nothing Then
Dim riga, colonna
riga = Target.Row
colonna = Target.Column
risposta = MsgBox("stai per copiare la cella- Vuoi contnuare?", vbYesNo)
If risposta = vbNo Then GoTo fine
Target.Copy
Sheets("foglio3").Activate
With ActiveSheet
.Cells(riga, colonna).Select
ActiveSheet.Paste
End With
Application.CutCopyMode = False
Sheets("foglio2").Select
End If
Resume
fine:
Range("A1").Select
End Sub

con questo codice copio i dati da foglio 1 a1:a1000 in foglio 2 a1:a1000
siamo d'accordo.
Io invece vorrei copiare nei fogli 2 3 4 5 e nelle celle da z1:z1000 la domanda è: Come?
e come farlo col semplice invio senza inutili conferme

GRZ

prova con queste modifiche:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Set zona1 = Range(Cells(1, 1), Cells(1000, 1))
If Not Intersect(Target, zona1) Is Nothing Then
Dim riga, colonna
riga = Target.Row
colonna = 26
Target.Copy
For N = 2 To 5
Sheets("foglio" & N).Activate
With ActiveSheet
.Cells(riga, colonna).Select
ActiveSheet.Paste
End With
Next
Application.CutCopyMode = False
End If
Resume
Range("A1").Select
End Sub

saluti
Andrea

---