Макрос Excel поиска и вставки

[igorok]

Здравствуйте. Вопрос жизни и смерти....помогите пожалуйста..
Нужен макрос или какое-то другое осуществление задачи - Есть текст разбитый по строкам. В нем нужно после 5-го слова вставить - значек примера <<>>. Когда вставили 1 раз - переходим на следующие строки и вставляем в них..
Заранее благодарен.

[EducatedFool]

Вот весь макрос:

Sub test()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        arr = Split(cell, " "): cv = ""
        If UBound(arr) > 4 Then
            For i = LBound(arr) To UBound(arr)
                cv = cv & arr(i) & " ": If i = 4 Then cv = cv & "<<>> "
            Next
            cell = Trim(cv)
        End If
    Next cell
End Sub

[igorok]

Большое спасибо за макрос!!!