Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

Dim oSchoolWorkTable As ListObject, sSchoolWorkTable As String
Set oSchoolWorkTable = ListObjects("SchoolWorkTable")
sSchoolWorkTable = oSchoolWorkTable.Name & "[#This Row]"

With oSchoolWorkTable.ListColumns("Name").Range.FormatConditions _
'''
    .Add(xlExpression, Formula1:="=COUNTIF(INDIRECT("" & sSchoolWorkTable & ""),FALSE)>0")
'''
    .Interior.Color = RGB(255, 199, 206)
    .Font.Color = RGB(156, 0, 6)
End With

Application.EnableEvents = True
End Sub