Highlight Text In Cell if Checkbox is Un-Checked

Greetings,

Currently I have Active X Control Check boxes where if the box is checked, the sheet will be displayed who's name matches the check box's caption. If the box is unchecked, the sheet becomes hidden. I want to add another layer to this where if the box is unchecked, then the linked cell's text will be a light grey (almost to where you can't see the name) to visually indicate (more so) that the sheet isn't being used.

Attached is a sample workbook that already has the code to hide the sheets when the checkboxes are unchecked.
The code is located in Sheet6(Checkboxes).

Existing Code for CheckBox1

Private Sub CheckBox1_Click()

Dim ws As Worksheet
Set ws = ActiveSheet

If Sheets(CheckBox1.Caption).Visible = xlHidden Then
    Sheets(CheckBox1.Caption).Visible = -1

Else
    Sheets(CheckBox1.Caption).Visible = xlHidden

End If


End Sub

One way:

Private Sub CheckBox1_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    If Sheets(CheckBox1.Caption).Visible = xlHidden Then
        Sheets(CheckBox1.Caption).Visible = -1
         With CheckBox1
            Cells(.TopLeftCell.Row, .TopLeftCell.Column).Font.Color = RGB(178, 178, 178)
        End With
   Else
        Sheets(CheckBox1.Caption).Visible = xlHidden
        With CheckBox1
            Cells(.TopLeftCell.Row, .TopLeftCell.Column).Font.Color = vbBlack
        End With

    End If
End Sub