Mentre è in funzione vedo che scala le righe del foglio DataBase ma non incolla niente.
- Codice: Seleziona tutto
Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
Selection.Copy
Sheets("Database").Select
ActiveSheet.Paste
ActiveCell.Offset(4, 0).Range("A1").Select
Next I
End Sub
La parte che fa girare i fogli l'ho copiata dalla guida e la parte che copia e incolla l'ho registrata.