Macro para encontrar duplicados en una base de datos

Prueba esta macro te crea una lista de duplicados

'Sub buscar_duplicados()
'Dim unicos As New Collection
'
'Set datos = Range("a1").CurrentRegion
'
'With datos
'    Set dup = .Columns(.Columns.Count + 2).Resize(1, 2)
'    filas = .Rows.Count
'
'    X = 1
'    For i = 1 To filas
'        nombre = .Cells(i, 2)
'        On Error Resume Next
'            unicos.Add nombre, CStr(nombre)
'            If Err.Number > 0 Then
'                dup.Cells(X, 1) = .Cells(i, 1)
'                dup.Cells(X, 2) = .Cells(i, 2)
'                X = X + 1
'            End If
'        On Error GoTo 0
'    Next i
'    filasb = unicos.Count
'    MsgBox ("hay " & filas - filasb & " registros duplicados"), vbInformation, "AVISO"
'End With
'
'End Sub

¿Y no te sirve lo del formato condicional?

Selecciona tu columna donde se ubican los datos duplicados

En el menú Inicio Ubica Formato condicional

Resaltar reglas de celdas

Duplicar valores

Aplicar formato a las celdas que contienen:

Duplicar

Valores con:Relleno Rojo