ActualizaŽción automática a base de macros

Hola a todos, dispongo de 12 ficheros excel, cada uno de los cuales
tiene una macro para su actualización (Actualiza())
Ahora me gustaría saber cómo automatizart la ejecución de estas 12
macros de automatización. dispongo en otro excel una macro por cada
uno de los ficheros como esta
Public Sub ActualizaFich1()

'Rutina VB que actualiza Cuadro de Mando

Dim xlApp, StrArchivo

StrArchivo = "Rutadondeestaelfichero\fichero1.xls"

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open StrArchivo
xlApp.Run "Actualiza" 'rutina a a ejecutar
xlApp.Quit
Set xlApp = Nothing

End Sub

Pero cuando ejecuto unas cuantas, luego me aparece un mensaje de erro
de automatización con el código -2147417848 u otras veces me aparece
un mensaje de error haciendo referencia a algo con objetos OLE.
¿Alguien puede ayudar/indicarme la mejor manera de hacer esto?
Gracias!!!