I use this code to make text not visible and it does work well using matching font color (fcolor) and cell color (icolor), but this leaves one issue. When I print the text it is no longer hiden by the matching colors.? I was hoping to use -4241 to set the color to no color,(invisible?) but now it produces errors.
Code
Private Sub Worksheet_Calculate()
Dim icolor As Integer, fcolor As Integer, Target As Range, FormulaCells As Range
Set FormulaCells = Range("a4:a104")
For Each Target In FormulaCells
Select Case Target
Case "one"
icolor = 37
fcolor = -4142
Case "two"
icolor = 27
fcolor = -4142
Case "three"
icolor = 35
fcolor = -4142
Case "four"
icolor = 45
fcolor = -4142
Case Else
icolor = -4142
End Select
Range(Target, Cells(Target.Row, "ac")).Interior.ColorIndex = icolor
Range(Cells(Target.Row, "c"), Cells(Target.Row, "ac")).Font.ColorIndex = fcolor
Next Target
End Sub
Display More
Thanks,
BC