Macro crear pdf de excel archivo en servidor de red local

Los Expertos:

El tema es el siguiente: Tengo una macro que a través de un formulario, al introducir un dato de confirmación en el textbox9 "X", me genera un archivo pdf de la hoja activa, que lo almacena con ruta del libro y una carpeta para almacenar los pdf's. Esta macro funciona perfectamente cuando la trabajo en mi ordenador, o cuando se guarda en otro ordenador de la red local.

El problema surge al meterla dentro del servidor, ya que al parecer no da con la ruta y da el fallo justo en la parte del código por el que se crear el pdf. Esta es la parte de la macro del textbox9:

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'NO NECESITA ACCION CORRECTIVA
ActiveWorkbook.Unprotect ("berni99")
If TextBox9 <> "" Then
CommandButton3.Locked = True
CommandButton2.Locked = True
CommandButton4.Locked = True
CommandButton5.Locked = False
CommandButton1.Locked = False
Dim nombre, ALIAS, otronombre, miruta, archivo, As String
Worksheets("NOCONFORMIDAD").Unprotect ("berni99")
Worksheets("NOCONFORMIDAD").Select
Range("AA27").Select
If ActiveCell = "CALIDADGP" Then
End If
If ActiveCell = "" Then
Range("V27").Select
ALIAS = ActiveCell
Range("T45").Select
nombre = ActiveCell
Worksheets(nombre).Visible = True
Worksheets(nombre).Unprotect ("berni99")
Worksheets(nombre).Select
Range("AQ66").Select
ActiveCell = Label18.Caption
Range("AQ67").Select
ActiveCell = "ABRIR"
If TextBox9 <> "" Then
TextBox9.BackColor = &HCCCCFF
Worksheets(nombre).Select
Range("U53").Select
ActiveCell = TextBox9
'solucion adoptada
Range("C33").Select
TextBox1.MultiLine = True
ActiveCell = TextBox1
'firma
Range("AB36").Select
ActiveCell = TextBox2
'resultado
Range("I38").Select
TextBox3.MultiLine = True
ActiveCell = TextBox3
'cierre SI
Range("I44").Select
ActiveCell = TextBox4
'fecha
Range("G50").Select
TextBox7.Value = Format(TextBox7, "dd-mmm-yy")
ActiveCell = TextBox7
fecha = TextBox7
'firma
Range("AB50").Select
ActiveCell = TextBox8
'SE GENERARA EL pdf de FIN DE LA SOLUCION ADOPTADA
fecha = TextBox7
miruta = miruta = ActiveWorkbook.Path
miruta = ActiveWorkbook.Path & "\" & "pdf No Conformidades" & "_" & ALIAS
Worksheets("NOCONFORMIDAD").Select
Range("S41").Select
otronombre = ActiveCell & " " & Format(fecha, "dd-mmm-yy")
archivo = miruta & "\" & otronombre

Worksheets(nombre).Select
Range("C1").Select
ActiveCell = otronombre
Worksheets(nombre).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
archivo & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Se ha generado el pdf de FIN del proceso", vbOK, "GP"
End If
End If
End If
Worksheets("NOCONFORMIDAD").Protect ("berni99")
Worksheets(nombre).Visible = False

End Sub

Al dar intro después de introducir el dato el el textbox9, aparece el mensaje:"Se ha producido el error '5' en tiempo de ejecución: Argumento o llamada a procedimiento no válida". El fallo lo da en todo lo remarcado en negrita, que se pone en amarillo.

Viendo en el explorador de Windows la ruta del servidor, aparace

organizacion (\\server\) (O:)

y pinchando en la ventana superior, la ruta del archivo es:

O:\GP\8.-SISTEMA DE GESTIÓN\3.-REGISTROS\10.1.- No Conformidades y Acciones Correctivas\PRUEBA NO CONFORMIDAD\VIVIENDA

Ya probé de todo, poniéndolo en una ruta anterior por si el nombre del archivo era demasiado largo incluida la ruta, incluyendo la DNS secundaria, \\10.0.0.1\O:\...............pero nada.