Excel VBA: Evidenziare Valori uguali

[SebNan]

Ciao a tutti, ho un file excel con n righe ed n colonne dove nella colonna F ho una serie di indirizzi mail e vorrei evidenziare in giallo le celle che contengono la mail identiche. Ho provato questo script, solo che ho bisogno di impostare un range variabile anziche uno fisso (F1:F10), come posso fare?
Ho provato a dichiarare il RNG = Range ("F" & Rows.Count).End(xlUp).Row ma mi da errore.
Grazie e buona giornata

Codice: Seleziona tutto

Sub find_dups()
Dim rng as Range, c As Range, cella As Range, firstaddress, f As Long

    set rng = [F1:F10]

    For Each cella In rng
        f = 0
        If cella.Interior.ColorIndex <> 6 Then
            With rng
                Set c = .Find(cella, LookIn:=xlValues)
                If Not c Is Nothing Then
                    f = f + 1
                    If f > 1 Then
                        firstaddress = c.Address
                        Do
                            c.Interior.ColorIndex = 6
                            Set c = .FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> firstaddress
                    End If
                End If
            End With
        End If
    Next
End Sub

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub TrovaDupl()
UR1 = Range("F" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1 - 1
For RR2 = RR1 + 1 To UR1
If Range("F" & RR1).Value = Range("F" & RR2).Value Then
Range("F" & RR1).Interior.ColorIndex = 6
Range("F" & RR2).Interior.ColorIndex = 6
End If
Next RR2
Next RR1
End Sub

ciao