I'm trying to have excel change the font color in one cell based on the font
color change in another cell. I have a macro that will do this but I would
like to have it occur right after the original font color is changed
(possibly a sheet macro).

My macro is:
If Workbooks ("Manual Entry
Numbers.xls").Sheets("Sheet1").Range("E17").Font.C olorIndex = 3 Then
Range("G17").Font.ColorIndex =3
If Range("J18").Font.ColorIndex = 3 Then
Range("G18").Font.ColorIndex =3
(this repeats several times)
End If

Any Ideas would be greatly appreciated
Thanks

Unfortunately, no event fires on a change in font. You could use the
Worksheet_Calculate event and use an OnTime macro to perform
calculations every few seconds, but if you run it very frequently (e.g.,
every second or two) it will tend to impact the performance of your
sheet.

In article ,
"Truseeker" wrote:

I'm trying to have excel change the font color in one cell based on the font
color change in another cell. I have a macro that will do this but I would
like to have it occur right after the original font color is changed
(possibly a sheet macro).

My macro is:
If Workbooks ("Manual Entry
Numbers.xls").Sheets("Sheet1").Range("E17").Font.C olorIndex = 3 Then
Range("G17").Font.ColorIndex =3
If Range("J18").Font.ColorIndex = 3 Then
Range("G18").Font.ColorIndex =3
(this repeats several times)
End If

Any Ideas would be greatly appreciated
Thanks

Hi

There are no VBA events that trigs at format changes like coloring, sorry.
You'd have to assign extended custom macros to all toolbar buttons and menu
items that are potentially used to do the coloring. No easy job.

Best wishes Harald


"Truseeker" skrev i melding
...
I'm trying to have excel change the font color in one cell based on the
font
color change in another cell. I have a macro that will do this but I
would
like to have it occur right after the original font color is changed
(possibly a sheet macro).

My macro is:
If Workbooks ("Manual Entry
Numbers.xls").Sheets("Sheet1").Range("E17").Font.C olorIndex = 3 Then
Range("G17").Font.ColorIndex =3
If Range("J18").Font.ColorIndex = 3 Then
Range("G18").Font.ColorIndex =3
(this repeats several times)
End If

Any Ideas would be greatly appreciated
Thanks