Как осуществить поиск всех ячеек из столбца и поменять цвет?

Option Explicit
 
Sub Поиск()
         Dim СтолбецВkey As Integer
         Dim СтрочекВkey As Integer
         Dim ЯчейкаВkey As String
         Dim i As Integer
         Dim Ищем As Range
         Dim ПервыйНайденныйАдрес As String
         
   СтолбецВkey = 1 'это номер столбцв в  key.xls
  СтрочекВkey = Application.CountA(Columns(СтолбецВkey))
 Application.ScreenUpdating = False
For i = 1 To СтрочекВkey
Windows('key.xls').Activate
ЯчейкаВkey = Cells(i, СтолбецВkey).FormulaLocal
Windows('main.xls').Activate
With ActiveSheet.UsedRange
Set Ищем = .Find(What:=ЯчейкаВkey, After:=Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
    If Not Ищем Is Nothing Then
        Ищем.Interior.ColorIndex = 3
         ПервыйНайденныйАдрес = Ищем.Address
        Do
          Set Ищем = .FindNext(Ищем)
            If Ищем.Address <> ПервыйНайденныйАдрес Then
              Ищем.Interior.ColorIndex = 3
            End If
        Loop While Not Ищем Is Nothing And Ищем.Address <> ПервыйНайденныйАдрес
    End If
End With
Next
End Sub
 
'Это идея , а дальше надеюсь переделаешь!