Reemplaza el código de la macro por este:
Sub book_inv()
'Por Victor Maldonado
Application.ScreenUpdating = False
Dim book, rutaLibro, boxDialog As String
book = "Inventario" & ".xlsm"
rutaLibro = "C:\Controles\"
If Dir(rutaLibro & book) = "" Then
boxDialog = Application.GetOpenFilename("Todos los archivos (*.*), *.*", Title = "Abrir...")
If boxDialog = "" Then
Exit Sub
ElseIf Not boxDialog = "Falso" Then
Workbooks.Open boxDialog
MsgBox "La nueva ruta del archivo Inventario es: " & boxDialog, vbInformation, "Nueva ubicación..."
End If
Else
Workbooks.Open rutaLibro & book
MsgBox "Se ha abierto el libro Inventario", vbInformation, "Aviso..."
End If
End Sub
Lo unico que habia que agregar era este código:
MsgBox "La nueva ruta del archivo Inventario es: " & boxDialog, vbInformation, "Nueva ubicación..."
Debajo de:
ElseIf Not boxDialog = "Falso" Then
Workbooks.Open boxDialog
Saludos y espero te sea de utilidad, no olvides calificar mi respuesta.
Víctor M.