Elsa Matilde respondió:
Entra al Editor de macros, inserta un módulo y allí copia la siguiente rutina: Sub LibroxHoja() 'x Elsamatilde 'se trabaja con la Hoja1 y se utiliza una hoja auxiliar Dim x As Byte Dim sh, wb Dim filx As Long Dim nbre As String, ruta As String, exten...