Thread
:
Application.Run for every open workbooks (one by one)
View Single Post
#
3
Posted to microsoft.public.excel.programming
John Coleman
external usenet poster
Posts: 274
Application.Run for every open workbooks (one by one)
If the same macro is used in several workbooks maybe you can move it
into an add-in. Just an idea.
Maybe you can try
For each wb in Application.Workbooks
Application.Run wb.Name & ".xls!" & "SameMacro"
Next wb
I didn't test it but I hope it helps
-John Coleman
wrote:
Hi guys,
One question:
Do you know how to convert the macro:
Sub UglyMacro ()
Application.Run
"FirstFile.xls!SameMacroButStoredInThisSpecificWor kbook"
ActiveWindow.ActivateNext
Application.Run
"SecondFile.xls!SameMacroButStoredInThisSpecificWo rkbook"
ActiveWindow.ActivateNext
Application.Run
"ThirdFile.xls!SameMacroButStoredInThisSpecificWor kbook"
ActiveWindow.ActivateNext
End Sub
into macro that will go like:
Sub DraftNiceMacro ()
For each wbk in Application.Workbooks
Application.Run "wbk.SameMacroButStoredInThisSpecificWorkbook"
Next wbk
End Sub
This one is not working for some strange reason...
Thanks for your help,
Mark
Reply With Quote
John Coleman
View Public Profile
Find all posts by John Coleman