[VBA] Copiare un intero foglio Excel

[lele85red]

Ho risolto cosi ragazzi

Sub Dati()

Workbooks.Open Filename:="C:Dati.xlsx"
For i = 1 To 3000
    For y = 1 To 34
         Foglio1.Cells(i, y) = Sheets("Dati").Cells(i, y)
     Next y
Next i
ActiveWorkbook.Close
End Sub

Grazie a tutti