как сделать, чтобы если открываешь один файл, то автоматически открывался другой?

[motorway]

Private Sub Workbook_Open()
x = ActiveWorkbook.Name
    Workbooks.Open Filename:="C:\file.xls"
Workbooks(x).Activate
End Sub