Hola que tal...
Acabo de probar esto en la red de la oficina, para comprobar si existe una foto en una carpeta del servidor, y me ha funcionado (tengo permisos para acceder a la carpeta en cuestión). No sé si te valdrá a tí, para un servidor externo, y como tienes el tema de permisos, especialmente de lectura, en ese servidor:
Código:
Sub localizar_fichero()
Set archivo = CreateObject("Scripting.filesystemObject")
ruta_y_archivo = "\\servidor\carpeta\foto.jpg"
If archivo.FileExists(ruta_y_archivo) Then
respuesta = "La foto existe."
Else
respuesta = "La foto no existe."
End If
Range("A1") = respuesta
Set archivo = Nothing
End Sub
Salu2