How can I make cell A1 a "Y" or "N" depending upon cell A2's font color? Please help.

J

jdove78

How can I make cell A1 a "Y" or "N" depending upon cell A2's font color? Please help.
If anyone can answer this question I'll be extremely grateful. It doesn't matter to me how it is accomplished... macros VB or no VB.
Please feel free to email me at [email protected]
Thanks again,
Jdove.
 
D

Dianne

How about

Sub CheckColour()

Select Case ActiveSheet.Range("A2").Font.Color
Case vbRed
ActiveSheet.Range("A1").Value = "Y"
Case Else
ActiveSheet.Range("A1").Value = "N"
End Select

End Sub
 
Top