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
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