Pogledaj ovu temu http://www.elitesecurity.org/t255390-0#1540045

DigDB.xlam
+
Sub Merge()
Dim ws As Worksheet
ActiveSheet.UsedRange.Offset(0).Clear
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.UsedRange.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
End Sub

=reshen problem.....

Ako ti je ovo resenje onda nisi dobro postavio pitanje.

Pozdrav

Mozhda nije uradjeno sve u jednom koraku, ali postupak mozhe da se iskoristi kada se ima proflem sa velikim brojem file-ova ili kada se ima problem sa velikim brojem worksweet-ovima......

BYE

Procedura koju si naveo nema nikakve veze sa vise fajlova (Workbook-ova),
vec iskljucivo sa vise radnih listova (Worksheet-ova)!

Pozdrav

....kako sam rekao,

DigDB.xlam prebacish sve u jedan file (koji ima Worksheet-ove koliko je bilo i fajlova) a posle skriptom prebacish u jedan Worksheet!!!

bye