PDA

View Full Version : Solved: Kill all combo boxes w/ one shot



joelle
12-16-2005, 10:13 AM
Gd Morning All,

Pls how do I at one time delete all the combo boxes.
As you can see from my macro below, after I copy rows from "sheet a" to "status sort" ws, I have to locate each box, click on its border, and delete each one.
It would be so nice if you could help me with a pc of code to delete all the combo boxes at one time on the "status sort" ws without missing any of them.

As always, any help is so much appreciated.
Nee


Rows("1:4").Select
Selection.Copy
Sheets("Status Sort").Select
Rows("1:1").Select
ActiveSheet.Buttons.Add(4.5, 63, 144, 12.75).Select
ActiveSheet.Buttons.Add(5.25, 80.25, 141.75, 11.25).Select
ActiveSheet.Buttons.Add(16.5, 96, 112.5, 20.25).Select
ActiveSheet.Buttons.Add(921.75, 19.5, 382.5, 11.25).Select
ActiveSheet.Paste
ActiveSheet.Shapes("Button 7").Select
Application.CutCopyMode = False
Selection.Delete
ActiveSheet.Shapes("Button 6").Select
Selection.Delete
ActiveSheet.Shapes("Button 5").Select
Selection.Delete
ActiveWindow.SmallScroll ToRight:=7
ActiveSheet.Shapes("Button 8").Select
Selection.Delete
ActiveSheet.Shapes("Button 4").Select
Selection.Delete

Bob Phillips
12-16-2005, 11:02 AM
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp

joelle
12-16-2005, 11:26 AM
Hello xld,

Many many thanks for your quick help with the code -- works like a charm.
No sunshine over here but do I care? Again, love the code.

Thanksfully,
Nee