Iniciar y detener macro si una celda tiene texto proveniente de una fórmula

[Cesar Manuel]

Hola Foreros!!

Tengo un macro que hace parpadear el fondo de un rango de celdas si en una determinada celda hay cualquier valor numérico. Pero sólo me funciona cuando introduzco directamente el valor en la celda; cuando el valor proviene de una fórmula no se ejecuta el macro. Además me gustaría que no solo reconociera el valor numérico sino cualquier texto en general. 

He probado con  

Private Sub Worksheet_Calculate()

pero no me funciona

 

El código que me funciona es el siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AR5:BB19"), Target) Is Nothing Then
   If WorksheetFunction.Count(Range("AR5:BB19")) > 0 Then
      Iniciarparpadeo
   Else
      Pararparpadeo
   End If
End If
End Sub

[Antoni]

Sube tu archivo para ver las fórmulas del rango AR5:BB29 y las macros.

[Cesar Manuel]

Antoni, gracias por tu ayuda, te envío el fichero.   No sé si existe otra manera de enviar los macros.  He copiado y pegado el código en el propio archivo. 

Un saludo

Ir a URL 2.xlsm

[Antoni]

A ver ahora.

Ir a URL 2 Antoni.xlsm

[Cesar Manuel]

Gracias, Antoni eres un fenómeno.

Tema resuelto. y finalizado