Checking if a name is already in a list

[dpaton05]

I need to add a check if the young person I am trying to add to the list is already in the list and if they are, not to add them. Maybe a message box saying they are already in the list.

This is my code to add a young person.

Sub AddYP()
Application.DisplayAlerts = False
Dim newyp As String
    newyp = Tracker.Cells(6, 4)
    YP.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = newyp
        Call CreateWB(newyp)
    ThisWorkbook.Names.Add Name:="tblYPNames", _
    RefersTo:=Range("tblYPNames").Resize(Range("tblYPNames").Rows.Count + 1)
        Tracker.cboYP.ListFillRange = "tblYPNames"
        Tracker.cboYP.ListFillRange = "tblYPNames"
Application.DisplayAlerts = True
End Sub

What would I add to check if they are already in the range on the sheet YP?

 

[Michael M]

Untested....just passing by...

Sub AddYP()
Application.DisplayAlerts = False
Dim newyp As String, rng As Range
    newyp = Tracker.Cells(6, 4)
    With Sheets("YPNames").Range("A:A") 'searches all of column A
        Set rng = .Find(What:=newyp, After:=.Cells(.Cells.Count), LookIn:=xlValues, _
                        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not rng Is Nothing Then
        MsgBox "This name is already in the list !"
         Else
           YP.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = newyp
       End If
        End With
        Call CreateWB(newyp)
    ThisWorkbook.Names.Add Name:="tblYPNames", _
    RefersTo:=Range("tblYPNames").Resize(Range("tblYPNames").Rows.Count + 1)
        Tracker.cboYP.ListFillRange = "tblYPNames"
        Tracker.cboYP.ListFillRange = "tblYPNames"
Application.DisplayAlerts = True
End Sub

 

[dpaton05]

Thank you Michael, that is perfect.