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

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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 (e-mail address removed)
Thanks again,
Jdove.
 
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
 
Back
Top