With ActiveSheet.Shapes.AddLine(240#, 190.5, 432#, 191.25)
.Line.EndArrowheadStyle = msoArrowheadTriangle
.Line.EndArrowheadLength = msoArrowheadLengthMedium
.Line.EndArrowheadWidth = msoArrowheadWidthMedium
.Name = "myLine"
End With

With ActiveSheet.Shapes("myLine")
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With

Tim

--
Tim Williams
Palo Alto, CA


"Ed" wrote in message
...
Hi
Can an item (a line with arrowhead as created by the Drawing function for
example) be created and/or the color of it changed by an entry or
entries
in a Macro when certain conditions exist?
If this can be done, how is it done?
Thankyou
Ed