test cell for specific color & if true, change to no color...the code should work but it's not...

[sadams1]

hello & thank you for your consideration on this!

I'm just a hack that occasionally gets lucky finding something online & messing with it til it works & this seemed like a task that fit my skills but this code isn't changing a specific cell color to "no fill". Any insights would be greatly appreciated!



Sub TestFillColor()

Dim cell As Range

'Loop through each cell in selected range
For Each cell In Selection.Cells

'Test if cell has a fill color
If cell.Interior.ColorIndex = RGB(100, 100, 100) Then

'change to no fill
cell.Interior.Color = RGB(0, 0, 0)

End If

Next cell

End Sub

 

[Rick Rothstein]

You are trying to test the ColorIndex (a number between 0 and 56) against the RGB(100,100,100) which is 6579300. Try changing ColorIndex to just Color your If..Then test.

 

[sadams1]

arrrgghhh...managed not to see that mismatch with "Color" & "ColorIndex". Now works like a charm! Thank you very much for the help!
This is my way of hacking away at a different result that I'd posted earlier in the week...the end result is pasting all colors not a light gray onto a table with alternating rows of light gray...like ledger paper. Was thinking that making the alternating rows as "light gray bar objects" would solve the problem of pasting the other colors but now the text looks "hazy" due to the gray object on top. Anyhow, can't thank you enough for your time.
Steve