Как получить значение объединенной ячейки Excel - VBA

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

Всем Доброго времени суток! Суть вопроса такова: Есть объединенная ячейка (R2C2). Нужно пройтись по всем строкам, входящие в эту ячейку, т.е. начинаем со строки 2 и до 20. При этом каждый раз необходимо проверять значение объединенной ячейки. Пробовал вот так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, 2).Select
    MsgBox ActiveCell
End Sub

Но т.к. таких объединенных ячеек много, экран "некрасиво моргает" при выделении каждой ячейки. Может есть какой-нибудь способ лучше для выполнения такой задачи? Заранее Всем Спасибо за помощь

Решение задачи: «Как получить значение объединенной ячейки Excel»

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

                            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set ma = Cells(Target.Row, 2).MergeArea
    If ma.Count > 1 Then MsgBox ma.Cells(1)
End Sub
                        