Hi there,

Assign this macro to the OnExit event of your formfield checkbox:

'_______________________________________
Sub ChangeCheckboxColor()

Dim ffRange As Range
Dim myFF As FormField

ActiveDocument.Unprotect

Set ffRange = Selection.Cells(1).Range
Set myFF = ffRange.FormFields(1)
Set ffRange = myFF.Range

If myFF.Result = True Then
   ffRange.Font.Color = wdColorRed
Else
   ffRange.Font.Color = wdColorAutomatic
End If

ActiveDocument.Protect wdAllowOnlyFormFields, True

Set myFF = Nothing
Set ffRange = Nothing

End Sub
'_______________________________________

merci!

It is exactly what I needed!

Much appreciated