This can be achieved with VBA.
Open your file --> Press Alt+F11 to open VBA Editor --> Double click ThisWorkbook from the project explorer on left side --> Paste the code given below in the opened code window --> Close VBA Editor --> Save your workbook as Excel Macro-Enabled Workbook.
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim ws
If Target.Column >= 4 And Target.Column <= 18 And Target.Row > 4 Then
Application.EnableEvents = False
If Cells(Target.Row, "C") = "Company Name" Then
If Target <> "" Then
For Each ws In Array("Player 1", "Player 2", "Player 3", "Player 4", "Player 5", "Player 6", "Player 7", "Player 8", "Player 9", "Player 10")
If WorksheetFunction.CountIf(Sheets(ws).Range("D:R"), Target.Value) > 1 Then
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Exit For
Else
Target.Interior.ColorIndex = xlNone
Target.Font.ColorIndex = xlAutomatic
End If
Next
Else
Target.Interior.ColorIndex = xlNone
Target.Font.ColorIndex = xlAutomatic
End If
End If
Application.EnableEvents = True
End If
End Sub
For detail, refer to the attached workbook.
Bookmarks