jerryeagle respondió:
Modifícala un poco, quitando una linea y modificando otra: 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",...