Error mesage box if two cells have the same name

[tonylpcs@yahoo.co.uk]

Hi Everyone,

I need some vb code that can look at the data in cells C6 to C25 and check to see if any of the names in any of the cells matches any name in any of the other cells and if so create a message box "saying error cell can not the same name"

can anyone tell me how to do this plaese

Thanks

Tony

 

[VoG]

Try

Sub test()
Dim i As Long
For i = 6 To 25
    If WorksheetFunction.CountIf(Range("C6:C25"), Range("C" & i).Value) > 1 Then
        MsgBox "Cells cannot contain the same name", vbExclamation
        Exit For
    End If
Next i
End Sub

 

[tonylpcs@yahoo.co.uk]

thank you very much,

thats perfect

Tony