See added line of code below

On Tue, 14 Dec 2010 23:46:11 +0100, "DVAL" wrote:

Does anybody can help me?
I tried with command button
with macro:

Sub Button1_Click()
'
' Button1_Click Macro
'
Dim ws As Worksheet

Range("C3").Select
Selection.Copy
For Each ws In Worksheets

ws.select
Range("D10").Select
ActiveSheet.Paste

Next wSheet
End Sub