Excel explota con secuencia de dos macros

Tengo un macro que se ejecuta con otro macro, si lo hago manual (entrando por visual B y dándole F8) ahí el excel no explota.

Pero si lo hago asignado el macro a una figura para ejecutar con un clic ahí si explota

Este es el macro ejecutor

Sub runMacro()
'
' Macro1 Macro
'
Application.Run "'InffBCRDFiscalSPNF Ene-Dic 2018 Externa.xlsm'!copyto"
Windows("InffBCRDFiscalSPNF Ene-Dic 2018 Externa.xlsm").Activate
Sheets("Fiscal Ext 2018 (USD)").Select
Range("B8:O8").Select
'If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Close saveChanges = True
'End If
End Sub

y este el macro que hace lo que necesito

Sub Copyto()
'
' Macro6 Macro

Sheets(Array("Fiscal Ext 2018 (USD)", "DESUSD", "Fiscal Ext 2018 (DOP)", "DESDOP") _
).Select
Sheets("Fiscal Ext 2018 (USD)").Activate
Sheets(Array("Fiscal Ext 2018 (USD)", "DESUSD", "Fiscal Ext 2018 (DOP)", "DESDOP") _
).Copy
ActiveWorkbook.BreakLink Name:= _
"M:\BACK-OFFICE\COMUNES\Informes y Reportes\BCRD\Datos_Fuentes\Data\Planilla PIC.xlsx" _
, Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:= _
"M:\BACK-OFFICE\COMUNES\Informes y Reportes\BCRD\Datos_Fuentes\Data\Planilla vencimientos.xlsx" _
, Type:=xlExcelLinks
Range("B8:O8").Select

Dim fname, fpath
fname = InputBox("enter a name")
fname = fname & ".xlsx"
fpath = "M:\BACK-OFFICE\COMUNES\Informes y Reportes\BCRD\Elaboración_Balance_Fiscal\2018\Envios\"
ActiveWorkbook.SaveAs fpath & fname
End Sub
Porque esta explotando excel cuando lo corro desde un clic y no explota si lo ejecuto desde visual B acción por acción