VBA search for duplicates & display warning message

[srosk]

I have the following code. Essentially, looking to find any duplicates in column B. The problem, is it continues to duplicate the function. Basically, what I want it to do is once it finds a duplicate in sheet names "Control Sheet" then display message and stop. No need to continue looping. Is this possible?

   Range("B1").Select    Do While ActiveCell.Value <> ""
        vtnaddress = ActiveCell.Address
        vtn = ActiveCell.Value
        Range("B1").Select
        Do Until ActiveCell.Address = ""
            If ActiveCell.Value = vtn Then
                MsgBox "Duplicate fund found, please check fund list"
                Exit Do
            Else
                ActiveCell.Offset(1, 0).Select
            End If
        Loop
        ActiveCell.Offset(1, 0).Select
    Loop

 

[Fluff]

How about

Sub srosk()
   Dim Cl As Range
   
   For Each Cl In Range("B1", Range("B" & Rows.Count).End(xlUp))
      If Application.CountIf(Range("B:B"), Cl.Value) > 1 Then
         MsgBox "Duplicate fund found, please check fund list"
         Exit Sub
      End If
   Next Cl
End Sub

 

[srosk]

Written so simply.. thank you!

How about

Sub srosk()
   Dim Cl As Range
   
   For Each Cl In Range("B1", Range("B" & Rows.Count).End(xlUp))
      If Application.CountIf(Range("B:B"), Cl.Value) > 1 Then
         MsgBox "Duplicate fund found, please check fund list"
         Exit Sub
      End If
   Next Cl
End Sub

 

[Fluff]

You're welcome & thanks for the feedback