if font is bold then cell value is number
 

Greeting,

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

if font is bold then cell value is number
 

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

--
Gary''s Student - gsnu200804