es un plano que esta comprimido en un .rar o sea abrir un .rar

prueba con esto, continuando con la idea de los hipervínculos

ActiveWorkbook.FollowHyperlink Address:=NombreArchivo

Con el nombre de archivo incluyendo la ruta completa al archivo

Por otra parte, y sin necesidad de macros, como la extensión está asociada al programa que lo abre, también podría abrirse con un hipervínculo desde la hoja.

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

si la ruta existe y es accesible desde el equipo debería funcionar aunque esté en red.

Te adjunto un ejemplo

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

ya esta me faltaba ponerle la extencion, la cuestion es si es .zip todo bien...pero si es punto .pdf no lo habre. ya que no se cual de los dos es.

habra una forma para averiguar antemano q extencion es?

Para ver propiedades de los archivos dispones del objeto FileSystemObject, que proporciona acceso al sistema de archivos del equipo.

por ejemplo, para obtener la extensión de un archivo:

Function ExtensionArchivo(Ruta As String) as String
Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    ExtensionArchivo = fs.getextensionname(Ruta)
        
    Set fs = Nothing
End Function

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

yo he probado con un pdf y sí lo abre

no entiendo eso de *.*

¿podrías adjuntar un ejemplo?

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.

hable de mas! ja

ahora amigo otra problem viste que me pasaste esta funcion ---- ActiveWorkbook.FollowHyperlink Range("i5")

va de diez, pero sino abro el hipervinculo me salta un error.

necesito más

¿qué error? ¿cuándo se produce exactamente?

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.