Получение номера строки с определённым текстом и форматом - VBA

Формулировка задачи:

Добрый день. Вопрос достаточно просто (я надеюсь) - есть определённая ячейка, в ней конкретный текст, отформатированный, надо получить номер строки этой ячейки. Ячейка может быть объединена с соседними ячейками, либо может быть несколько ячеек в одном столбце с идентичным текстом. Сгодится номер либо объединённой ячейки, либо номер второй ячейки с идентичным текстом. В приложении пример.

Решение задачи: «Получение номера строки с определённым текстом и форматом»

textual
                            Листинг программы 
                        

                            Sub VVV()
  Dim R As Range, FR As Range, a$, lr$
   Set R = Range("E8:H30")
   Set FR = R.Find("Цель1")' ??? или R.Find("Цель")
   If Not FR Is Nothing Then
    lr = FR.Row
    a = FR.Address
      '---цикл по следующим найденным ячейкам
     Do
       Set FR = R.FindNext(FR)
        If FR.Address = a Then Exit Do
        lr = lr & "," & FR.Row
     Loop
   End If
   MsgBox lr
End Sub
                        