NAMING/DELETING OBJECTS QUESTION (SelectAll)

[JLouis]

Hello!

I have a worksheet called "Schedule" in which a tool bar has been created for adding lines and custome text boxes for completing a linebar schedule. The objects are created in code:
ActiveSheet.Shapes.AddLine(132, 272, 198.75, 272).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 2#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 62
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadDiamond
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadDiamond
Selection.ShapeRange.ZOrder msoSendToBack
End Sub

This creates a 2 hour shift. There are 10 different lines that can be created. There is also a button that creates a text box that is used to designate "breaks" on the schedule.

I am looking for the code that will select all of these items (no matter how many there are) and delete them and create a fresh sheet.

I've searched the site and tried SelectAll and can't get it to work.

Obviously, any help is appreciated.

Louis

 

[Cbrine]

cells.delete

This should do it.

HTH
Cal

 

[Ivan F Moala]

perhaps

ActiveSheet.DrawingObjects.Delete

 

[JLouis]

Ivan, thank you. It worked perfectly.