Elsa Matilde respondió:
Te dejo una rutina de ejemplo. Tendrás que ajustar algunos detalles, como ruta y nombre del libro. Sub CopiaNueva() Dim nvafac As String Dim wb As Workbook for each hojita in sheets 'se establece el nbre con el que se guardara el libro nvafac =...