Addition to macro code

[hasanlianar]

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

 

[AlphaFrog]

<font face=Courier New>    <SPAN style="color:#00007F">Dim</SPAN> wb <SPAN style="color:#00007F">As</SPAN> Workbook<br>    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> wb <SPAN style="color:#00007F">In</SPAN> Application.Workbooks<br>        <SPAN style="color:#00007F">With</SPAN> wb<br>            <SPAN style="color:#007F00">' do stuff here to wb</SPAN><br>            .Select<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> wb</FONT>

 

[hasanlianar]

Dim wb As Workbook
For Each wb In Application.Workbooks
With wb
' do stuff here to wb
.Select
End With
Next wb

Thank you,

But there is an error with " .select" part. What does it do?

 

[AlphaFrog]

My error. Change it to .Activate

 

[hasanlianar]

My error. Change it to .Activate

Thank you, AlphaFrog. IT is ok now.

How can I apply the macro for all workbooks? I save it in Personal workbook, however the macro does not work for all open workbooks.

Thank you again, for help