Tjekke om der er tegnet en linie

Public Function TjekLine(startX, startY, slutX, slutY) As Boolean

For Each sh In ActiveSheet.Shapes
ActiveSheet.Shapes(sh.Name).Select
If Selection.ShapeRange.Item(sh.Name).Left = startX And _
Selection.ShapeRange.Item(sh.Name).Width = startY And _
Selection.ShapeRange.Item(sh.Name).Top = slutX And _
Selection.ShapeRange.Item(sh.Name).Height = slutY Then
TjekLine = True
Exit For
End If
Next

hallo