Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50)
With shp
…
.Fill.ForeColor.RGB = RGB(255, 255, 255)
…
.TextFrame.Characters.Font.Color = RGB(0, 0, 0)
…
End With

The code:
.TextFrame.Characters.Font.Color = RGB(0, 0, 0)
gives results <grey not <black why ?
is there any syntax error ?

Many thanks in advance