Actividad pública reciente
Ha valorado "Excelente" la respuesta
Guardar archivos con nombre automático
ActiveWorkbook.SaveAs archivo, FileFormat:=52 donde la variable archivo tiene LA RUTA COMPLETA y el nombre que le vas a dar el archivo en tu caso algo asi archivo = "C:\programa\" & activesheet.range("C6").value & ".xlsm"
Ha empezado a seguir a 
duainsulch
duainsulch
Ha empezado a seguir el tema Ciencias económicas