написал такой цикл

For i = 1 To x
For j = i + 1 To i + 1
If Cells(i, 6) <> vbNullString Then
If Cells(i, 6) = Cells(j, 6) Then
Worksheets("Sheet1").Cells(j, 6). _
Interior.Pattern = 17
Worksheets("Sheet1").Cells(i, 6). _
Interior.Pattern = 17
End If
Else: If Cells(i, 2) = vbNullString Then Exit Sub
End If
Next
Next

End Sub

у меня есть куча ячеек, надо проверить нет ли повторяющихся. я их отсортировал по алфавиту просто и хочу, если повторяющиеся есть выделить их скажем желтым цветом.
на что надо заменить? Worksheets("Sheet1").Cells(i, 6). _
Interior.Pattern = 17

big-duke hirondelle11 Worksheets("Sheet1").Cells(i, 6). _
Interior.Pattern = 17


спасибо
супер
тема закрыта:)