¿Cómo executo una macro de miarchivo desde otro archivo abierto de

¿Cómo executo una macro de miarchivo desde otro archivo abierto de Excel
Este ese el código que tengo:
Private Sub Workbook_Open()
On Error Resume Next
x = Workbooks("ExpeDiente.xls").Name
If Not Err = 0 Then
On Error GoTo 0
Workbooks.Open Filename:="C:\Cebreros\Expediente\Estados de
Cuenta\ExpeDiente.xls"
End If

On Error GoTo 0
Application.Run "'ExpeDiente.xls'!Auto_Open"

End Sub
Gracias

Para llamar el Auto_Open toca usar algo así:

Workbooks("ExpeDiente.xls").RunAutoMacros xlAutoOpen

Saludos,

Juan Pablo González

"Cebreros" wrote in message
news:

¿Cómo executo una macro de miarchivo desde otro archivo abierto de Excel
Este ese el código que tengo:
Private Sub Workbook_Open()
On Error Resume Next
x = Workbooks("ExpeDiente.xls").Name
If Not Err = 0 Then
On Error GoTo 0
Workbooks.Open Filename:="C:\Cebreros\Expediente\Estados de
Cuenta\ExpeDiente.xls"
End If

On Error GoTo 0
Application.Run "'ExpeDiente.xls'!Auto_Open"

End Sub
Gracias

y practicamente todos se puede llamar asi:

Sub test()
Run "'ExpeDiente.xls'!ThisWorkbook.Workbook_Open"
End Sub

Saludos,
KL


"Juan Pablo González" wrote in message
news:
> Para llamar el Auto_Open toca usar algo así:
>
> Workbooks("ExpeDiente.xls").RunAutoMacros xlAutoOpen
>
> Saludos,
>
> Juan Pablo González
>
> "Cebreros" wrote in message
> news:
>> ¿Cómo executo una macro de miarchivo desde otro archivo abierto de Excel
>> Este ese el código que tengo:
>> Private Sub Workbook_Open()
>> On Error Resume Next
>> x = Workbooks("ExpeDiente.xls").Name
>> If Not Err = 0 Then
>> On Error GoTo 0
>> Workbooks.Open Filename:="C:\Cebreros\Expediente\Estados de
>> Cuenta\ExpeDiente.xls"
>> End If
>>
>> On Error GoTo 0
>> Application.Run "'ExpeDiente.xls'!Auto_Open"
>>
>> End Sub
>> Gracias
>
>