Different attempt Jefferson Davis 19.Oct.11 10:09 PM a Web browser 1-2-3 All ReleasesWindows XP
Hello again Jonathan,
I'm not fully following your example.
I've got approx. 10 cells, in each of 3 range groupings for each Sub to check. I attempted the below which is very simple to my mind. I just haven't figured out how to set it up correctly so that it'll work.
I thought it through a little better this time and created an example file to figure it out. Here goes;
I placed in A:A1 = 2
I placed in A:B1 = 2
I placed in A:C1 the formula: @IF(A1=B1,"Correct","WRONG")
And in the cellcontentschange for A:C1, I placed:
Sub Cellcontentschange(Source As Range)
If [A:C1].contents = "Correct" Then
[A:C1].Font.FontColor.ColorName = "black"
[A:C1].Background.BackColor.ColorName = "white"
[A:C1].Font.Bold = False
[A:C1].Font.Italic = False
[A:C1].Font.FontColor.ColorName = "red"
[A:C1].Background.BackColor.ColorName = "blush"
[A:C1].Font.Bold = True
[A:C1].Font.Italic = True
I can get the cell to change to the "red" section, but it will not change back.
This is probably very simplified, but it's how my mind is working. Any suggestions would be greatly appreciated.