title: Run VBA-script from a different Excel file using VBscript
body: <p>I use this code to search through a folder, finding all the excel file(with the same extension), run a VBA script from an opened excel file and save it without prompting.</p>
  
  <pre><code>strPath = "my path"
  pathName="xlsx"
  
  if strPath = "" then Wscript.quit
  if pathName = "" then Wscript.quit
  
  Set objExcel = CreateObject("Excel.Application")
  objExcel.Visible = True
  objExcel.DisplayAlerts = False
  
  Set objFso = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFso.GetFolder (strPath)
  
  For Each objFile In objFolder.Files
  
  If objFso.GetExtensionName (objFile.Path) = "xlsx" Then
     Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)
  
     Set objWorksheet = objWorkbook.WorkSheets(1)
     objworksheet.Activate
  
  objExcel.Application.Run "'filename and in quote because there is space.xlsm'!TestingMacro"
  
  
   objWorkbook.saveas(objFile.Path)
     objWorkbook.Close True 'Save changes
  End If
  
  Next
  
  objExcel.Quit
  </code></pre>
  
  <p>However, everytime I run it, it just gives me an runtime error 800A03EC on line objExcel.Application.Run. So wat could I do to resolve it?</p>
  
  <p>Thanks!</p>