Contar palavras no intervalo selecionado

Respondendo a uma pergunta num fórum, desenvolvi o seguinte código que conta a ocorrência de determinada palavra na seleção feita na planilha.

Para utilizá-la abra o editor do VBA (ALT+F11), em inserir selecione módulo, e cole o seguinte código.

Após a inserção pressione F5 para executar a macro pela primeira vez (para a criação do atalho de teclado)

A partir dai basta selecionar o intervalo desejado, e pressionar Ctrl+Shift+J (este atalho é criado com a linha macrooptions)

Sub ContarPalavras()
'desenvolvida por bruno_silva_leite@yahoo.com.br

Dim x As Range, cont As Integer
Dim Palavra As Variant

Application.MacroOptions Macro:="ContarPalavras", hasshortcutkey:=True, ShortcutKey:="J"

Palavra = Application.InputBox("Digite a palavra a procurar")

If Palavra = False Then Exit Sub

For Each x In Selection
     If InStr(1, x.Value, Palavra) Then
            cont = cont + 1
     End If
Next x

MsgBox "A palavra " & Palavra & " foi encontrada " & cont & " vezes na seleção", vbInformation

End Sub

A sub irá solicitar uma palavra, digite a mesma e a rotina retornará um msgbox com o resultado da contagem.

Simples, mas pode ser útil em algumas situações.

Até a próxima