bueno, no sé si será la mejor forma, pero he añadido esto a la función de David el Grande
Código:
Function ValidarRuta(Ruta As String) As Boolean
On Error Resume Next
If Ruta = "" Then
ValidarRuta = False
Else
ValidarRuta = (Dir(Ruta) <> "")
End If
End Function