RE: cutting command buttons

[cart0250]

RE: cutting command buttons

I have a series of command buttons I would like to remove during a macro. Is there a quicker way to do this than the obvious code:

ActiveSheet.Shapes("CommandButton1").Cut
ActiveSheet.Shapes("CommandButton2").Cut
ActiveSheet.Shapes("CommandButton3").Cut
...

 

[acw]

Hi

If all the shapes on the sheet are commandbuttons then something like

for i = activesheet.shapes.count to 1 step -1
  activesheet.shapes(i).delete
next i

Tony

 

[HalfAce]

Hello cart0250,
To remove all (and only the) CommandButtons from the worksheet (leaving all other
objects) you can use something like this.

Sub RemoveCmdBtns()
Dim CmdBtn As Object
For Each CmdBtn In ActiveSheet.OLEObjects
  If TypeOf CmdBtn.Object Is MSforms.CommandButton Then CmdBtn.Delete
Next
End Sub

Is that what you're looking to do?

 

[cart0250]

RE: cutting command buttons

yes, that is exactly want I needed. Thanks