Microsoft Office Forums - View Single Post - Change Text Colour/Box Shade if CheckBox is marked

Guessed · 01-26-2023, 06:39 PM

It all has to get crammed into one macro - you can't have the same macro name in the same module.

Code:

Private Sub Document_ContentControlOnExit(ByVal aCC As ContentControl, Cancel As Boolean)
  Select Case aCC.Title
    Case "Awaiting Response", "Response Received"
      If aCC.Checked = True Then
        aCC.Range.Paragraphs(1).Range.Font.ColorIndex = wdRed
      Else
        aCC.Range.Paragraphs(1).Range.Font.ColorIndex = wdGreen
      End If
  End Select
End Sub