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