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

cavals07 · 01-26-2023, 09:38 PM

Quote:

Originally Posted by Guessed

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

Thank you so much Andrew! You have been a true saviour - I appreciate your guidance so very much!! Cheers!! I have learned lots from you.