ABRIR ARCHIVO DESDE CUALQUIER UBICACION

Private Sub Workbook_Open()
carga = Application.GetOpenFilename
Workbooks.open carga
End Sub