Remove (Shape) Straight Line

Hello
I would like to request how to remove straight line shape through vba

It was made through the following vba code

Sub Str_line()
ActiveSheet.Shapes.AddLine(259, 169#, 341, 169).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.Weight = 1#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.ForeColor.SchemeColor = 0
End Sub


Thanks & Regards