Я новичок в VBA. Я пишу макрос для некоторого сравнения файлов. Мое требование: если строка имеет красный цвет шрифта, эта строка должна игнорироваться для итерации, а код должен переходить к следующей итерации. Я пробовал следующее код.

Dim compare = {"test1","test2","test3",.....etc}

i=0

For j=1 to Ubound(compare)    
  j=1

  If compare.Characters(j,Len(compare(i))).Font.Color <> vbRed Then    
    ' Some Code
  End If

  i=i+1    
Next

Однако во время выполнения я получаю ошибку во время выполнения 424 "Требуется объект. Пожалуйста, помогите мне выполнить эту задачу

Заранее спасибо.