Tengo 2 Libros abiertos, necesito que el 2do libro abierto se guarde con un nombre específico pero que siga abierto y si ya existe el archivo con el mismo nombre, solo lo reemplace , al ejecutar la macro me sale mensaje de error sin poder corregirlo
Aqui la macro:
Sub GrabarLibro()
Dim milibro As Workbook
For Each milibro In Workbooks
If milibro.Name <> ThisWorkbook.Name Then
milibro.SaveAs Filename:="C:\Users\LIVIA\Downloads\Libro1.xlsx", FileFormat:=xlOpenXMLWorkbook
End If
Next milibro
ThisWorkbook.Save
End Sub