H o l a:
Para que no se copie el botón hay que agregar esta instrucción:
ActiveSheet.DrawingObjects("Botón 1").Delete
Así quedaría la macro:
Sub guardar() 'PARA GUARDAR COMO XLSX
'Por.Dante Amor http://www.todoexpertos.com/preguntas/6ejf9vkdjg44a9m9/macro-excel-para-copiar-hoja-activa-como-xlsx?nid=gcqp5uuggnw63hkpfot9rtun9jtppt6sffspnx4pabr3&utm_source=todoexpertos&utm_medium=EmailNotification&utm_campaign=AskerQuestion_ExpertMessageAdded
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set h1 = ActiveSheet
nbr = h1.Name & " " & h1.[E8] & " " & h1.[I8] & " " & h1.[I9]
ruta = "D:\Datos Mecanicos\"
With Application.FileDialog(msoFileDialogFolderPicker)
'.Title = "Selecciona una carpeta"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show <> -1 Then Exit Sub
cp = .SelectedItems(1)
End With
'
h1.Copy
ActiveSheet.DrawingObjects("Botón 1").Delete
ActiveWorkbook.SaveAs Filename:=cp & "\" & nbr & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Archivo guardado en " & cp & "\" & nbr & ".xlsx"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Range("A1").Select
End Sub
sal u dos