Tänkte höra om detta går att lösa !

Jag har ett hundratal excelblad i en mapp som heter 100, jag vill hämta ett värde från varje excelblad i Sheet3 A1.
Dessa vill jag placera i ett annat excelblad som ligger i samma mapp 100 & som heter Book1, placeringen vill jag lägga på följande sätt :

Tex värde från Exceldok Nr:1 vill jag ha i Book1 Sheet2 C6
nästa C7 & nästa C8 osv.

Jag har en lösning som går att använda som jag bifogar, men det jag söker är ett kortare makro då min ide blir väldigt långt & tidsödande att skapa.

Det tillkommer även nya excelblad emellanåt så det vore bra om det gick att fixa så att dessa tillkommer per automatik oxo.


Private Sub CommandButton1_Click()

' Hämtar data ur flera exceldokument från en mapp & lägger dessa data i en excelfil / (Book1).

'(1)

Workbooks.Open ("C:\Users\Ronnie\Desktop\100\1.xls")
Worksheets("Sheet3").Range("A1").Copy

Workbooks("Book1.xls").Activate
Worksheets("Sheet2").Select
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("C6")

'Close and save
Workbooks("1.xls").Close SaveChanges:=True

'(2)

Workbooks.Open ("C:\Users\Ronnie\Desktop\100\2.xls")
Worksheets("Sheet3").Range("A1").Copy

Workbooks("Book1.xls").Activate
Worksheets("Sheet2").Select
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("C7")

'Close and save
Workbooks("2.xls").Close SaveChanges:=True

'(3)

Workbooks.Open ("C:\Users\Ronnie\Desktop\100\3.xls")
Worksheets("Sheet3").Range("A1").Copy

Workbooks("Book1.xls").Activate
Worksheets("Sheet2").Select
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("C8")

'Close and save
Workbooks("3.xls").Close SaveChanges:=True

'Save Book1.
ActiveWorkbook.Save



End Sub

Vore väldigt tacksam om någon kunde ta sig an detta