Hola, tengo este codigo:
Sub Nuevomes()
Sheets("MES").Select
Sheets("MES").Copy before:=Sheets(1)
End Sub
Bueno hace lo que necesito, solo que en la hoja "MES" tengo 3 botones que los incruste del controles de formulario y los uso para llamar a macros grabadas por mi persona, pero como puedo copiar la hoja "MES" como nuevo libro pero sin el boton3?
Gracias
Jesús
Puedes añadir lo siguiente después del código de copiar la hoja:
Sheets(1).select
n = activesheet.Shapes.count
For i = n to 1 Step -1
On Error Resume Next
Activesheet.Shapes(i).Select
If Activesheet.Shapes(i).Name = "boton3" Then
Activesheet.shapes(i).delete
Exit For
end if
next
Saludos
Esta barbaro gracias mil
Saludos
Jesús
Jesus Martinez Plantarosa