Usar dirección de red en Macro

Hola estoy haciendo una macro que lista los archivos de una carpeta local, y cuando doy la dirección de una carpeta en red ( \\server\A- Carpeta\Imagenes\Fotos Marzo ), lista los archivos del disco duro local
Sub Busca()
    Dim srtTArchvo As String
    Dim srtDirectorio As String
    Range("A1").Select
    srtRuta = "\\server\A- Carpeta\Imagenes\Fotos Marzo"
    srtDirectorio = _
    InputBox("Carpeta de Imagenes", "Carpeta", srtRuta)
    ChDir srtDirectorio
    srtTArchivo = Dir("*.jpg")
        Do While srtTArchivo <> ""
            ActiveCell.Value = srtTArchivo
            ActiveCell.Offset(1, 0).Select
            srtTArchivo = Dir
        Loop
    Range("A1").Select

{"Lat":19.4056195226325,"Lng":-99.2406445741653}