Addition to macro code

[Anar]

Hi everyone


I have code purpose of which is to repeatedly write the same words in several workbooks.


To do that I open all workbooks and run macro in each workbook separately.


The macro writes the required words, then saves the workbook and closes it.


I don't want to run macro manually in each workbook.What kind of addition can I make to the code in order to repeat the same procedure for all open workbooks automatically?


Regards,

Anar

 

[xld]

Air code

[pre]

Dim fso As Object
Dim fldr As Object
Dim file As Object

Set fso = CreateObject("Scripting.FilesystemObject")
Set fldr = fso.getFolder("C:test")
For Each file In fldr.Files

Workbooks.Open file.Path

'do your stuff

ActiveWorkbook.Save
ActiveWorkbook.Close
Next file

[/pre]

 

[Anar]

Thank you