if font is bold then cell value is number

[Jon]

Greeting,

Is there any code to input a value to cell if A1 is bold and Red color?

 

[Gary''s Student]

Sub jon()
With Range("A1").Font
If .FontStyle = "Bold" And .ColorIndex = 3 Then
Range("A1").Value = 123
End If
End With
End Sub