Problema con Filecopy y una unidad de red

 Dim Reporte2 As String

Dim NewReporte2 As String

Dim RutaMaster1, RutaRep1 As String

Dim RptCopy1 As String

Dim Inicio, Fin As String

On Error GoTo Err_Handler1

Inicio = Date

RutaMaster1 = gProject.Path & "\REP\REPORTES\REP_COURIER_1HR_Real\"

RutaRep1 = "x:\"

RptCopy1 = " " & Format(Inicio, "dd") & " " & Format(Inicio, "mmmm") & " " & Format(Inicio, "yyyy") & ".xlsx"

Reporte2 = "REP_COURIER_1HR_Real" & RptCopy1

If Hour(Now) > 0 Then

    NewReporte2 = RutaRep1 & Reporte2

Else

    NewReporte2 = RutaRep1 & Mid(Reporte2, 1, Len(Reporte1) - 5) & " " & Format(Date - 1, "dd") & " " & Format(Date - 1, "mmmm") & " " & Format(Date - 1, "yyyy") & ".xlsx"

End If

FileCopy RutaMaster1 & Reporte2, NewReporte2 'copia la PLANTILLA ...\REP\MASTER\Rep_Celda_1E_15Min.xls a ...\REP\REPORTES\Rep_Energia\Rep_Celda_1E_15Min dd mmmm yyyy

Err_Handler1:

End Sub

Este código lo usamos para copiar-pegar un reporte excel (previamente creado) a una unidad de red x:\ (señalada arriba), cuando ejecuto el script no manda ningún error, pero al fijarme si ha pegado no encuentro nada en la unidad X: . He cambiado la unidad destino por la unidad C: y efectivamente ahi si pega. Solo tengo ese problema cuando intento pegar en cualquier unidad de red.

No se cual es el problema, los permisos están gestionados bien en la unidad de red. Agradecería su ayuda o dirección. Y de antemano gracias por su tiempo