Special Highlight Duplicate Data Macro

I am looking for a macro to highlight duplicate data in Col A.

I have googled etc, and found quite a few, but some were slowish, some didn't work, some did.

The best I have found so far is this 1. I believe this was posted by Richard Schollar


Sub ColorDupes()
Dim v As Variant, r As Range, i As Long, j As Long
Set r = Selection
v = r.Value
For i = 1 To UBound(v, 1)
For j = 1 To UBound(v, 2)
If Not IsEmpty(v(i, j)) Then
If Application.WorksheetFunction.CountIf(r, v(i, j)) > 1 Then r(i, j).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub

This seems to run fine and be quite quick providing I highlight the column first.
What I'm looking for is a pop up window to also show me some data relating to the duplicates. I usually work with large lists and would like the macro to say how many duplicates it found from how many rows of data.

It is a very handy macro, and is very short on the coding side I notice compared to all the others I found (Which is Good?), I'm no coder