Повторение диапазона корыта и проверка повторения

Question

Я перебираю диапазон и хочу выделить повторяющиеся.

Я попытался написать подпрограмму, которая проверяет, повторяется ли какое-либо значение в диапазоне, и если это так, я хочу выделить его

Позже я хочу проверить, повторяется ли это значение более x раз (но это просто, просто добавьте счетчик и увеличьте его)

Я пытался использовать два разных метода

Метод 1

Sub Highlight()

Dim count, countMax As Integer
countMax = 100
Dim rng As range, cell As range
Set rng = range("G1:G100")

For Each cell In rng

    For count = 1 To countMax
        Selection.Offset(1, 0).Select

        If Not IsEmpty(cell) And cell.Value = Selection.Value Then

            cell.Interior.color = RGB(0, 255, 0)

        End If
        countMax = countMax - 1
    Next count
Next cell

End Sub

Метод 2

Sub Highlight()

Dim rngG1 As range, cellG1 As range
Set rngG1 = range("G1:G100")

Dim rngG2 As range, cellG2 As range
Set rngG2 = range("G1:G100")

For Each cellG1 In rngG1

    For Each cellG2 In rngG2
        If cellG1 <> cellG2 And Not IsEmpty(cellG1) And cellG1.Value = cellG2.Value Then
            cellG2.Interior.color = RGB(0, 255, 0)
        End If
    Next cellG2
Next cellG1

End Sub

Оба метода ничего не выделяют, пожалуйста, помогите с некоторой информацией или укажите мне направление.

Спасибо.