Macro triggered by change in font color?

[Wild Bill]

Is there any way to trigger a macro in response to a change in font color only? Worksheet_change does not respond.

 

[lenze]

Not to my knowledge!! What exactly are you trying to do? How is the Font color changed? Manually or via Conditional Formatting?
lenze

 

[Wild Bill]

I want to respond to a manual change in font color. The purpose is to restrict the user to one of only three font colors. We're using font color to indicate status and I'm generating some simple statistics based on it so I don't want other font colors to be used.

Is there a way perhaps to restrict selection of font colors to a short defined list?

 

[Diablo II]

try

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("A1") = 10 Then
Call MsgExample1
end sub

 

[RoryA]

There is no event raised by changing font colours. You could try and hook every possible means of changing the font colour, or you could make your life easier and add some sort of status value which would allow you to use built-in functions for reporting and conditional formatting if you need colours.

 

[Diablo II]

like rorya sade, i dont think so, but you can do that on cell background color .

 

[Diablo II]

here i one you cam play with.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim bGreaterThantext As Boolean
Range("G2").Select
   If ActiveCell.Value = "text" Then bGreaterThantext = True
   'other statements
   If bGreaterThantext Then
        Selection.Font.ColorIndex = 5
   End If
End Sub