la fecha ya comprobe que no era

hola, Javier !

... en realidad no reconoce la ruta con algun usuario entonces tendre que ver que sucede
como veras tengo on error resume next para si no es en un directorio sea el otro
en la maquina donde no falla, tendre que trabajar en esa depuracion
Si tienes alguna sugerencia te lo agradeceria...

1) no me ha quedado muy claro 'cual si y cual no'... o 'donde si y donde no' :))

2) te sugiero que grabes una macro abriendo un libro de esa 'precisa' ubicacion...
para que analices 'como' necesitas especificar la ruta de la carpeta en el servidor [?]

3) lo que si te puedo asegurar, es que no es lo mismo: ...\w\ que: ... \weporte\
o sea... la funcion Dir() NO busca en directorios dependientes/colgantes/... del que le indiques :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

Sub OnlyDateLastmod_VT()

Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Fila As Integer

on error resume next
Ruta = "\\200.200.200.30\w\" >no me encuentra el archivo en la pc que no falla
Ruta = "\\200.200.200.30\weporte\">Si me encuentra el archivo en la pc que no falla

Archivo = Dir(Ruta & "datos.xls")
'Range("a1:b1") = Array("Nombre", "Ult. modif")<--Edita Titulos en Celdas
'Do While Archivo <> ""
'Fila = Fila + 1
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)
Range("d1").Offset(Fila) = Array(Fecha)
'Range("a1").Offset(Fila).Resize(, 2) = Array(Archivo, Fecha)
Archivo = Dir()
' Loop
'Range("a1:b1").EntireColumn.AutoFit
'Range("a:b").Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlYes
End Sub