vba recursive code example

Example: vba recursive

' Recursive
' Occurences of pWord inside pRange's text become bold and red. Case insentive.
Sub WordToBold(ByRef pRange As Range, ByVal pWord As String, _
    ByRef pPos As Integer)
    Dim pos As Integer
    pos = InStr(pPos, pRange.Value, pWord, vbTextCompare)
    If pos > 0 Then
        With pRange.Characters(pos, Len(pWord))
            .Font.Bold = True
            .Font.Color = vbRed
        End With
        WordToBold pRange, pWord, pos + 1
    End If
End Sub