Crear hipervinculo en funcion del texto de la celda

Tengo una celda que, en función de otra, aparece un texto o no, necesito que en cuanto aparezca el texto "enviar correo" esa misma celda se convierta en un hyperlink al correo outlook con el mail a enviar... He conseguido que la celda se convierta en un hyperlink con el mail a enviar, pero no se decirle a la macro que según lo que ponga la celda cree el hipervínculo automáticamente sin tener que ejecutar la macro.

Necesitaría que para todas las hojas de excel del fichero donde apareciera el texto "Enviar Mail" esa misma celda sec onvirtiera en el hyperlink... No sé si me he explicado con claridad... Mis nociones de VBA son casi nulas...

Esto es lo que he hecho, pero no funciona...

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("P").Select
    If Cell Like "*ENVIAR MAIL*" Then
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "mailto:[email protected]?subject=Pruebas%20extra%20a%20revisar"
En If
End Sub