Abrir pdf

Vale he usado la opción 1 y em funciona, pero quizas me explique mal al
preguntar. Con este cambia la macro no corre si A8 esta vacia, pero si esta
con datos y estos datos no corresponden con ningun fichero de la ruta me da
un mensaje de error. Lo ideal seria que tanto al estar en blanco como si el
fichero no existe la macro no corriera y me diera al gun mensaje de error.

Perdon por ser pesado y gracias por la colaboracion.

"Héctor Miguel" escribió en el mensaje
news:%

hola, Antonio !

prueba cambiando la instruccion que adaptaste con algo +/- como lo
siguiente:

op1:

If Range("a8") = "" Then Exit Sub
' aqui continuas con el codigo que expusiste

op2:

Ruta = ThisWorkbook.Path & "\fichas\" & Range("a8")
If Dir(Ruta) <> "" Then ThisWorkbook.FollowHyperlink Ruta

saludos,
hector.

... como puedo modificar el codigo para que si en "A8" no ahi datos, osea
esta vacio
al pulsar el boton no pase nada o bien de un mensaje que diga" NO AHI
NADA PARA MOSTRAR".

... Al final buscando por la red y, aunque no se nada de codigo, pude
mezclar varias respuestas del foro y me salio esto:
Ruta = Range("a8")
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\fichas\" & Ruta

hola, Antonio !

Vale he usado la opción 1 y em funciona, pero quizas me explique mal al preguntar.
Con este cambia la macro no corre si A8 esta vacia, pero si esta con datos
y estos datos no corresponden con ningun fichero de la ruta me da un mensaje de error.
Lo ideal seria que tanto al estar en blanco como si el fichero no existe la macro no corriera y me diera al gun mensaje de error.

prueba combinando las condiciones de ambas opciones (p.e.)

If Not IsEmpty(Range("a8")) Then _
If Dir(ThisWorkbook.Path & "\fichas\" & Range("a8")) <> "" Then _
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\fichas\" & Range("a8")

saludos,
hector.