Abrir archivos desde VBA según ruta establecida.

 

Sub abrir()
Dim ruta As String

On Error GoTo Errores

'ruta = InputBox("", "Ruta de Archivo")
ruta = Range("a2").Text & "\" & Range("b2").Text & "." & Range("c2").Text

If ruta = "" Then MsgBox "No ha seleccionado una ruta válida", vbCritical, "Excel Consultor": Exit Sub
ActiveWorkbook.FollowHyperlink ruta, , True

'Damos por terminada nuestra macro
Exit Sub


'Esta etiqueta es la que nos permitirá
'asignar otro código para manera el error.

Errores:
'Podemos usar un MsgBox para mostrar un mensaje

MsgBox "No ha seleccionado una ruta válida", vbCritical, "Excel Consultor"




End Sub