Hola a todos

como podria hacer que este codigo busque tambien el nombre la celda en las subcarpetas despues de la carpeta "lista"

Sub copiar_jpg()


    Dim Celda As Excel.Range


    With CreateObject("Scripting.FileSystemObject")


        For Each Celda In Range("b4:b13")


    .CopyFile ThisWorkbook.Path & "\lista\" & Celda, ThisWorkbook.Path & "\proyeccion\" & Celda



  End With


    End Sub[/CODE]

gracias

alguien sabe?