VBA opening exels with different names same location

[GerrardSVK]

Hello all I need an VBA code that will works like this.

1: I have folder where there is around 90 exel files with different names each is specifc.
2: Vba Has to open each of them one by one and execute macro that I have allready made.

So I need open first run macro close it than open second run macro close it etc. But it have to be unsensitive to xlsm name.

Is there any option?

 

[Kaper]

Try such code in separate file. Of course use your macro instead of test and your folder path:

Sub run_macro_in_all_wbks_in_fldr()
Dim fname As String, folder As String
folder = "C:/users/Kaper/test/"
fname = Dir(folder & "*.xl*")
While fname <> ""
  Workbooks.Open folder & fname ' the workbook from folder is opened and it is now active
    Call test
  ' may be you need: ActiveWorkbook.Save False ' here if the macro changes content
  ActiveWorkbook.Close 'so this closes the newly opened one
  fname = Dir
Wend
End Sub

Sub test()
  Debug.Print ActiveWorkbook.Name; ActiveWorkbook.Sheets.Count
End Sub

You may want to swith off screen refresh before loop

Application.ScreenUpdating = False

and swith back on after

 

[GerrardSVK]

hello thank for code but when I run it by F8 it wont open nothing what exactly should happen here

fname = Dir(folder & "*.xl*") 'probalby here there is bad creation of exel name because nothing is opened
While fname <> ""

 

[GerrardSVK]

hello thank for code but when I run it by F8 it wont open nothing what exactly should happen here

fname = Dir(folder & "*.xl*") 'probalby here there is bad creation of exel name because nothing is opened
While fname <> ""

I got it I forgot last backslash in folder path