I am trying to stop duplicate entries in several columns, from a drop down list. I have it working for the first column, but when I try and add a range for columns C2:C9, D2:D9 and E2:E9 I get errors. This is the code I have for B2:B9, can anyone tell me how to add more ranges? Each column uses the same list for entries. It is a simple list of numbers 1 to 8. I want each column to be able to score 1 to 8, without duplicating the score in the individual column.

```
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B9")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Range("B2:B9"), Target) > 1 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Duplicate score. Please select a different value."
End If
End Sub

```

Thank you