Need VBA to remove command buttons
 

I used the macro recorder to record a macro to remove command buttons from a
worksheet. The routine gets hung up and says I don't have permission to
delete the buttons. I realized that when I was recording the macro I first
had to put the sheet into design mode and that step was not recorded by the
macro recorder. What is the VBA command to turn on design mode?

Need VBA to remove command buttons
 

Try:

activesheet.oleobjects("btn1").delete

Tim



"Bill_S" wrote in message
...
I used the macro recorder to record a macro to remove command buttons from
a
worksheet. The routine gets hung up and says I don't have permission to
delete the buttons. I realized that when I was recording the macro I
first
had to put the sheet into design mode and that step was not recorded by
the
macro recorder. What is the VBA command to turn on design mode?

Need VBA to remove command buttons
 

Hello Bill S, you can try the following as well.

ActiveSheet.Shapes("CommandButton1").Delete

You must put in the name of the button if you changed it, the default
name is CommandButton1, CommandButton2 etc....


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

Need VBA to remove command buttons
 

Or, if you don't know the name and you want to delete ALL shapes on a
particular sheet.

Sub deleteALLshapes()
For Each sh In Sheets("sheet3").Shapes
sh.Delete
Next sh
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Les Stout" wrote in message
...
Hello Bill S, you can try the following as well.

ActiveSheet.Shapes("CommandButton1").Delete

You must put in the name of the button if you changed it, the default
name is CommandButton1, CommandButton2 etc....


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

Need VBA to remove command buttons
 

Also, make sure that protection is turned off. You can turn it back on after
the delete takes place.

--
Regards,
John


"Don Guillett" wrote:

Or, if you don't know the name and you want to delete ALL shapes on a
particular sheet.

Sub deleteALLshapes()
For Each sh In Sheets("sheet3").Shapes
sh.Delete
Next sh
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Les Stout" wrote in message
...
Hello Bill S, you can try the following as well.

ActiveSheet.Shapes("CommandButton1").Delete

You must put in the name of the button if you changed it, the default
name is CommandButton1, CommandButton2 etc....


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***