Importar 'Macro Files'

hola !

... archivo TXT con una Macro para ... ejecutar.la ... Macros - Editor y ejecuto ... Archivo - Importar.
... mecanismo ... Importar el archivo TXT ... y ejecutarla inmediatamente.

== un ejemplo en [alg]un modulo de codigo en excel =Sub Importar_Macro() ' o pudiera ser en el 'Workbook_Open()' '
Dim ArchivoDeMacros As String
ArchivoDeMacros = "C:\Mis documentos\El archivo con la macro.txt"
If Dir(ArchivoDeMacros) <> "" Then
On Error Resume Next
With ActiveWorkbook
.VBProject.VBComponents.Import ArchivoDeMacros
Application.Run "La_macro"
End With
On Error GoTo 0
End If
End Sub

=> solo 'asegurate' de que "La_macro" [o su 'importacion'] NO se 'duplique' en 'el libro' ;)
saludos,
hector.