Avoid Duplicate Names

Hello Mike,

It is easier and faster to use the Dictionary Object. The Dictionary allows you to randomly check if something already exists. Here is an example...

Sub Check_B()

  Dim Cell As Range
  Dim MyName As Variant
  Dim MyNames As Object
  Dim Rng As Range
  Dim RngEnd As Range
  
    Set Rng = Range("A3:B3")
    Set RngEnd = Cells(Rows.Count, Rng.Column).End(xlUp)
    If RngEnd.Row < Rng.Row Then Exit Sub Else Set Rng = Range(Rng, RngEnd)
    
    Set MyNames = CreateObject("Scripting.Dictionary")
    MyNames.CompareMode = vbTextCompare
    
      For Each Cell In Rng.Columns(1).Cells
        MyName = Cell.Text & " " & Cell.Offset(0, 1).Text
        If Not MyNames.Exists(MyName) Then
           MyNames.Add MyName, 0
        Else
          MsgBox "That Name Already Exists !!! Please Try Again...", vbCritical, "Name Exists"
          Cell.Resize(1, 2).ClearContents
          Call LastName
        End If
      Next Cell
     
    Set MyNames = Nothing
    
End Sub