Amigos ayudenme a modificar esta macro

Encontré la siguiente macro que copia todas las hojas de un archivo en una sola, pero necesito modificarlo para que busque todos los archivo de una carpeta llama flujo en la cual hay mas de 40 archivos los copie y los pegue en un solo archivo, ¿me podrán ayudar?

Sub ejemplo()
'por luismondelo
Application.DisplayAlerts = False
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name = "todas" Then hoja.Delete
Next
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "todas"
For x = 2 To Sheets.Count
Sheets(x).Select
Range("a1:o" & Range("a65000").End(xlUp).Row).Copy
Sheets("todas").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Next
Sheets("todas").Select
End Sub