Modify the Macro

smuneeb Posts 77 Registration date Saturday September 5, 2015 Status Member Last seen March 8, 2017 - May 12, 2016 at 10:38 PM

I would like to request please modify the below macro. The below macro create a line (shape), in all sheets.
If it once created (or it already exist) in all sheets then it wont create again.
Sub CrtLine()
    Dim StLnShape As Shape
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    '   it Create Line (Shape)
        Set StLnShape = ws.Shapes.AddLine(258, 163.5, 340, 163.5)
            With StLnShape
                .Name = "smuneeb line"
                .Line.EndArrowheadStyle = msoArrowheadNone
                .Line.Weight = 1#
                .Line.DashStyle = msoLineSolid
                .Line.ForeColor.SchemeColor = 0
            End With
    Next ws
End Sub

Thanks & Regards