Tor Cheer respondió:
Cree un botón y con es macro le hará una copia de su archivo Sub GuardarLibro() 'Tor Dim newBook As Workbook Dim newSheet As Worksheet Dim name As String ruta = ThisWorkbook.Path name = InputBox("Escriba el nombre del Libro") & ".xlsm"...