I have some sheets 1;2;3;4; ETC.................
I would like the new page list release with one botton:
A1-Nome de sheet(1;2;3;4; ETC)
A2-Date(C50:C80)
A3-Import (D50:D90)


Best regards

Marcello

"Bob Phillips" ha scritto nel messaggio
...
Marcello,

I am not absolutely clear as to what you need, but here is an initial stab
at it

Sub CopyData()
Dim i As Long
Dim sh As Worksheet

i = 1
workheets("Other Sheet").Activate
For Each sh In ActiveWorkbook.Worksheets
If sh.Name < ActiveSheet.Name Then
sh.Range("C50:D90").Copy ActiveSheet.Range("A" & i)
i = i + 41
ActiveSheet.Range("A" & i).Resize(41).Value = sh.Name
End If
Next i

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"SM" wrote in message
...
I have some sheets
In every sheet i have a date betwin C50:C80
and the import betwin D50:D90
Is possible that the solution is in other sheet.............?
1-Name sheet
2-Date (C50:C80)
3-Import (D50:D90)

Thanks

Marcello