J Jon Sep 13, 2008 #1 Greeting, Is there any code to input a value to cell if A1 is bold and Red color?
G Gary''s Student Sep 13, 2008 #2 Sub jon() With Range("A1").Font If .FontStyle = "Bold" And .ColorIndex = 3 Then Range("A1").Value = 123 End If End With End Sub
Sub jon() With Range("A1").Font If .FontStyle = "Bold" And .ColorIndex = 3 Then Range("A1").Value = 123 End If End With End Sub