12 workbook skal samles til en

jeg kan finde alle filerne ved denne

Dim FS As FileSearch
Dim FilePath As String, FileSpec As String
Dim i As Long
Dim v As Variant
Dim rTarget As Range
Dim ToSheet As Worksheet
'******************************
FilePath = "E:\Dokumenter\HA\2006F\edb\salgsdata"
FileSpec = "*.xls"
Set ToSheet = ThisWorkbook.Worksheets("ark1")
'******************************
'find excel filerne
Set FS = Application.FileSearch
With FS
  .LookIn = FilePath
  .Filename = FileSpec
  .Execute
  If .FoundFiles.Count = 0 Then
      MsgBox ("Ingen filer fundet")
      Exit Sub
  End If
End With
'hent data
For i = 1 To FS.FoundFiles.Count
  Set rTarget = ToSheet.Range("B65536").End(xlUp).Offset(1, 0)
  rTarget.Offset(0, -1) = FS.FoundFiles(i)

Next

End Sub

Hvorfor gøre det med en makro?
Lav et nyt ark og navngiv det f.eks. 2005.xls, åbn derefter 200501.xls, højreklik på fanebladet og vælg kopier, oppe i "til bog" / "To book" vælg 2005.xls. Inde i 2005.xls højreklikker du på det tilføjede faneblad og vælger rename/omdøb og gi'r det navnet 01. Sådan fortsætter du til du har dem alle inde.

hvorfor kommer med sådan en kommentar..

Vil du ha' en løsning eller hva?
I dit spørgsmål skriver du ikke noget om en makro, men dit eksempel tyder derpå.
Men man kan også bruge oceaner af tid på kompliceret løsning, når en simpel kan klare det, valget er dit, eller skal du samle 100 forskellige ark, så burde du måske ha' organiseret det bedre fra starten.
Good luck;o((

jeg har lavet det.

Fint, så kan du vælge at vise løsningen, eller bare lukke spørgsmålet.

luk