et:Worksheet_Change(ByVal Target As Range

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Set c = Range("C7:S12 , C14:S16 , C21:S21")
Dim TargetValue As String
TargetValue = ActiveCell.Value
For Each c In c.Cells
If c.Value = "" Then
Exit Sub
ElseIf c.Value = Target.Value And c.Address <> ActiveCell.Address Then
MsgBox Target.Value & (" staat er al in")
Selection.ClearContents
End If
Next c

End Sub

Het volgende : de bedoeling is dat er per kolom (omdat per kolom = 1 dag)wordt "gekeken' op een dubbele naam, mocht het zo zijn dan meteen de foute melding:staat er al in.

Maar als ik het dan uit probeer ,doet ie dit voor het hele werkblad. ? ipv per kolom apart
Dus ik doe willekeurig
dag 1 =staat Piet op C1.
dag 2 =staat Piet op B2 ,
toch krijg ik dan de fout melding: staat er al in ???? terwijl het 2 aparte kolomen zijn !
en er geen dubbele naam per kolom is ?