For each WorkBook in Folder ?

Jeg skal samle data fra mange Excel-filer til 1 Excel-fil.
Data står uens, men det klares med .currentRegion.
Jeg forestiller mig:

For each WorkBook in Folder
  Sheet1.Range("A1").CurrentRegion.Copy (til første tomme række i
  destinationsArket)
Next WorkBook

Var her ikke fornylig vist en god løsning ? Men jeg kan ikke finde det spørgsmål.
Eller har du et godt forslag ?
Tak finb