Find and count duplicates in Excel using Macro / vba

I have an excel sheet with multiple columns. What I want to do is:

Scan Column B
Find duplicates
Highlight duplicates in Yellow (or any color)
Provide a count of the duplicate values (Yellow highlighted).

I have the below code. It highlights the cells as soon as I enter and filters duplicates.

I would want to have the filtering happen only after user clicks on a button. Ofcourse, I would like to have a count of these duplicates as well.

 

Sub ValidateData()

    If (ActiveSheet.Name = "Codes") Then
        MsgBox ("HHHHIII")
        Sheets("Codes").Columns("B:B").Select
        Selection.FormatConditions.AddUniqueValues
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).DupeUnique = xlDuplicate
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = True

        
'        ActiveSheet.Range("Q18").HorizontalAlignment = xlCenter
'        ActiveSheet.Range("Q18").Value = cntDuplicates
'        ActiveSheet.Range("Q18").AddComment(str + " contain duplicates").Shape.TextFrame.AutoSize = True
        
'        str = ""
'        cntDuplicates = 0
        ActiveSheet.Range("A1").Select
    End If
   
End Sub

Select allOpen in new window