If you don't want to change the original code of either macro, then try
creating a third function that call the first two in order:

Sub ChainMyMacros()
Call Macro1
Call Macro2
End Sub

"Robert" wrote:

Thanks Roger but your way is exactly as "Application.Run('FUS1").
--
Robert


"