Help Changing Border Color

[Charlie39]

Hello, I am trying to change the color of the border of an object in Excel but this ends up filling up the object with that color.... Sorry, new at this.

Sub Macro1()

For i = 2 To 51
Range("active_Region").Value = Range("Sheet2!A" & i).Value
ActiveSheet.Shapes(Range("active_Region").Value).Select
Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("active_Region_Code").Value).Interior.Color

Next i

ActiveSheet.Shapes.Range(Array("AutoShape 2")).Select
End Sub

 

[arthurbr]

Cross post
http://www.excelforum.com/excel-programming/776143-macro-help.html#post2526065