Abrir pdf

Haber amigos he encontrado esto:

Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub

que me funciona pero desearia pulirlo un poco con vuestra ayuda. Quiero que
el nombre del archivo para abrir lo coga de la celda A11 y que la carpeta
sea algo asin "\fichas\ a11".


"Antonio" escribió en el mensaje
news:

Hola amigos. Deseria saber si existe alguna forma de poder abrir dese una
hoja de excel un archivo PDF. La forma que me gustaria que se pudiera
hacer es mediante un botón en la hoja.