بعد اذن أخى الفاضل / وليد فتحى
أخى الفاضل / الجموعى
جرب الكود التالى
Sub Macro1()
Dim ws As Worksheet
ActiveSheet.Shapes.Range(Array("زر 10")).Select
Selection.Copy
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "2004" Then
ws.Select
Range("D2").Select
ws.Paste
Range("D1").Select
End If
Next
End Sub
macro.rar