ColorIndex Sub-Routine not working as expected

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

Guest

Using XL 2003 & 97


The following routine is not functioning as expected.

I expect that if the font color and the interior color are the same

i.e. both white or the value of 2, that the interior color of the respective
cell
would be changed to Gray.

When I recorded a macro for both variables, they were both valued as "2"

Therefore, if 2=2 then the fill color s/b Gray? No?

************************
Sub ColorCellGray()

If Selection.Font.ColorIndex = Selection.Interior.ColorIndex Then
With Selection.Interior
.ColorIndex = 38 ' Gray
End With
End If

End Sub
***********************


TIA Dennis
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help using Chip Pearsons code to count cells with color 9
Change the Color of a Cell through a Macro 4
Conditional Format - Identifying Highlighted Cells 9
Conflict 8
Compile Error. Else without If? 6
Format using VBA not activating when needed 4
Continued Post - If statement and colors 8
CONDITIONAL FORMATTING FOR MORE THAN 3 CRITERIA 1

Back
Top