¿Cómo abrir otro archivo de Excel con una macro de Excel?

Sub test_hello()

MsgBox "hola"

End Sub

El módulo en este archivo es el objeto que se llama.

Cree otro archivo de Excel y cree la siguiente macro para llamar al objeto anterior.

Sub test_calling()

Atenuar xl_wb como Excel.Workbook

Atenuar xl_wb_name como cadena

Con Application.FileDialog(msoFileDialogFilePicker) ' Utilice el cuadro de diálogo de archivo para seleccionar el archivo donde desea llamar a la macro

.AllowMultiSelect = False

If .Show = -1Then

xl_wb_name =. SelectedItems(1)

Finalizar si

Finalizar con

Programa de llamada:

Sub openfile()

Workbooks.Open ("Archivo llamado.xls")

Workbooks("Archivo llamado.xls").Sheets("Hoja1").test

End Sub

He estado llamando al archivo, código de la Hoja 1:

Public Sub test()

Bip

End Sub.