Macro para localizar selecionando todas as palavras "hi"

[RRSF]

Tenho um texto imenso e tentei gravar uma macro para localizar todos os "hi", mas na hora de ver o código, fica sem nada.

Qual código em VBA posso usar pra localizar todos os "hi"??

[benzadeus]

Sub Exemplo()

Dim rng As Range

Dim sPrimeiro As String

Dim sBusca As String

Dim rBanco As Range

sBusca = "Benzadeus"

Set rBanco = Cells 'Toda Planilha

Set rng = rBanco.Find(What:=sBusca _

, LookIn:=xlValues _

, LookAt:=xlPart _

, MatchCase:=False)

If Not rng Is Nothing Then

sPrimeiro = rng.Address

Do

MsgBox "'" & sBusca & "' encontrado na célula " & rng.Address(0, 0) & "'."

Set rng = rBanco.FindNext(rng)

Loop While Not rng Is Nothing And rng.Address <> sPrimeiro

Else

MsgBox "Nenhuma ocorrência de '" & sBusca & "' encontrada."

End If

End Sub