Macro guardar archivo con el valor de una celda
Hola tengo esta macro para guardar un archivo excel con el nombre referido a una celda, me funciona bien, pero necesito guardar el archivo con un formato .xlsx y no se como cambiarlo. Si se lo cambio y pongo "xlsx" en lugar de "xls" lo guarda bien pero luego no se puede abrir, me aparece un error diciendo que el formato de la extensión no es válido. ¿Como se puede corregir esto?
Sub guardararchivo()
Código = Range("A1")ActiveWorkbook.SaveAs Filename:=("C:\Users\iamarti\Desktop\Control dimensional\Control verde\") & Código & ".xls", FileFormat:=xlNormal
End Sub
Les agradezco mucho cualquier respuesta, un saludo.
1 Respuesta
Respuesta de Nelson Felipe Serrano
1