Excel - Identificar valores repetidos en varias pestañas

Sub Repetidos()

'@dj.vivanco'

Dim miDiccionario As Object

Set miDiccionario = CreateObject("Scripting.Dictionary")

Dim codigo As Range, hoja As Worksheet

rep = 1

'Limpio columnas'

Range("A2:A10000").ClearContents

For Each hoja In Worksheets

    If Not hoja.Name Like "Resumen" Then

        uf = hoja.Range("A" & Rows.Count).End(xlUp).Row

        For Each codigo In hoja.Range("A2:A" & uf)

            If codigo.Value <> vbNullString Then 'si hay datos continua:'

                If miDiccionario.Exists(codigo.Value) = False Then 'si no existe el codigo'

                    miDiccionario.Add codigo.Value, rep 'guardo codigo(key) y la repeticion(value)'

                Else:

                    If miDiccionario.Exists(codigo.Value) = True Then ' si existe el codigo'

                       miDiccionario(codigo.Value) = miDiccionario(codigo.Value) + rep 'solo sumo 1 al acumulado del value'

                    End If

                End If

             End If

        Next codigo

    End If

Next hoja

'--------------------------------------------------------------------------

'Recorro cada Key guardado del diccionario'

Dim K As Variant

i = 2 'empieza en fila 2'

For Each K In miDiccionario.Keys

    If miDiccionario(K) > 1 Then

        Cells(i, 1).Value = K

        i = i + 1

    End If

Next K

Set miDiccionario = Nothing ' libero diccionario'

End Sub