I am working in an older version of Microsoft Excel (2007).

There is an issue with my macro, it stops when it reaches .ForeColor.Brightness = 0.   

But if I use the macro in a new Microsoft Excel version it works.  Can you help?

Sub addshape (r As Integer, c1 As Integer, c2 As Integer, c3 As Integer)

Dim shp As Shape

With ActiveSheet.Cells (r, c3)

   Set shp = ActiveSheet.Shapes.addshape(msoShapeOval, .Left +1, .Top +1, .Width - 2, .Height - 2)

   shp.Fill.Visible = msoFalse

   With shp.Line

          .Visible = msoTrue

          .ForeColor.ObjectThemeColor = msoThemeColorText1

          .ForeColor.TintAndShade = 0

          .ForeColor.Brightness = 0

          .Transparency = 0

        End With

     End With

 End Sub