Sub AddLine()
Dim l1 As Long, l2 As Long, r1 As Long, r2 As Long, x1 As Long, x2 As Long
l1 = Range("GI40F").Left 'left side of range
l2 = Range("GI40F").Top + Range("Start").RowHeight ' bottom left corner of range
r1 = Range("GI47C").Left
r2 = Range("GI47C").Top
x1 = Range("WD69C").Left + Range("Start").ColumnWidth * 4 'right side middle
x2 = Range("WD69C").Top + Range("Start").RowHeight ' bottom left corner of range
With ActiveSheet.Shapes.AddLine(l1, l2, r1, r2).Line
.ForeColor.RGB = RGB(255, 0, 0) 'red
End With
Application.Wait Now + TimeSerial(0, 0, 1) ' waits 1 second before proceeding
With ActiveSheet.Shapes.AddLine(r1, r2, x1, x2).Line
.ForeColor.RGB = RGB(0, 0, 255) 'blue
End With
End Sub
[\code]