Tim,
You could run a procedure manually to highlight all empty cells in a table (or selective cells), but there is no event triggers from just filling in a table cell.
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
On Error Resume Next
Select Case ContentControl.Title
Case "YesNo1"
If ContentControl.Range.Text = "Yes" Then
ActiveDocument.Tables(1).Cell(2, 2).Range.Shading.BackgroundPatternColor = wdColorGray50
Else
ActiveDocument.Tables(1).Cell(2, 2).Range.Shading.BackgroundPatternColor = wdColorAutomatic
End If
End Select
End Sub
Sub ShadedCells()
Dim oCell As Cell
For Each oCell In ActiveDocument.Tables(1).Range.Cells
If Len(oCell.Range.Text) = 2 Then
oCell.Range.Shading.BackgroundPatternColor = wdColorYellow
Else
oCell.Range.Shading.BackgroundPatternColor = wdColorAutomatic
End If
Next oCell
End Sub