
Public Sub RunMacros()
Application.Run "File1.xlsx!Macro1"
Application.Run "File2.xlsx!Macro2"
'eccetera
End Sub
''se ci sono degli spazi nei nomi dei files
Public Sub RunMacros()
Application.Run "'File 1.xlsx'!Macro1"
Application.Run "'File 2.xlsx'!Macro2"
'eccetera
End Sub |
Public Sub RunMacros()
Application.OnTime Now + TimeValue("00:00:10"), "RunMacros"
Application.Run "File1.xlsx!Macro1"
Application.Run "File2.xlsx!Macro2"
'eccetera
End Sub |
