How can run this macro in all excell files in specific folder

[bigmak]

Hello everybody

how can run this vba code in all excell file in folder ??
this code copy some info from Book4 to Book1 .
i have 5 excell file in a folder and i want this code run in all 5 excell file same time.

Sub Macro3()
    Windows("Book4.xlsm").Activate
    Range("G5:G7").Select
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Range("C13").Select
    ActiveSheet.Paste
End Sub

 

[bigmak]

code create empty cells ( copy noting ) !!!

 

[Fluff]

What sheet in Book4 holds the data you want to copy?