Hi I didn't know how to add yours to mine

I have done

  Sub macro_1()

  
  Dim wb1, wb2, month_name, fs, fol, fil
  Set wb1 = ActiveWorkbook
 Set fs = CreateObject("Scripting.filesystemobject")
  Set fol = fs.getfolder("U:\Outlooksoft\Europe\2013\Financial Reporting\ACTUAL Monthly results\12_Dec_13\Manager Expense Reports\Corp") ' change path as appropriate
  For Each fil In fol.Files
      Set wb2 = Workbooks.Open(fil)
      wb2.Sheets("PERIODIC").Range("B63") = wb1.Sheets("Sheet1").Range("G4")
      Application.Run ("mnu_etools_refresh")


      Application.DisplayAlerts = False
     wb2.Close True
    Application.DisplayAlerts = True
    

 Next

Dim fl_name As String
Dim target_str As String
fl_name = "Sep_13_Corp financial Accounting"
If InStr(1, fl_name, "_") > 0 Then
    target_str = Mid(fl_name, InStr(1, fl_name, "_") - 3, 6)
    'Replace(fl_name, target_str, wb1.Sheets("Sheet1").Range("G4"))


End Sub
with no luck