Contar Varialbles en una celda - EXCEL

[3pies]

Prueba esto, a ver si te sirve para algo:

Código:

Sub buscar_palabras()
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'fichamos la celda donde estamos, para volver a ella
celda = ActiveCell.Address
'palabra que queremos buscar...
'para que no haya problemas, haremos una comparación, pasando
'la variable y el valor de la celda a minúsculas
palabra_a_buscar = Trim(LCase(InputBox("Introduce la palabra a buscar:", "Palabra a buscar")))
'buscaremos desde A1 hasta A5000. ¿será suficiente, no? :-)
Range("A1").Select
'ponemos 4999, porque dentro del bucle for hay una línea donde
'avanzamos una fila más (hasyta la 5000)
For I = 1 To 4999
    'Si la celda contiene la palabra elegida,
    'creamos un contador para que nos lleve el control
    'de las veces que hemos encontrado esa palabra.
    If InStr(LCase(ActiveCell), palabra_a_buscar) <> 0 Then contador = contador + 1
    ActiveCell.Offset(1, 0).Select
    'En la celda B1 ponemos la cantidad de palabras encontradas
    If contador = "" Then contador = 0
    Range("B1") = "Se ha encontrado " & contador & " veces, la palabra: " & palabra_a_buscar
Next
'volvemos donde estábamos
Range(celda).Select
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub

Salu2