Envio automático de E-mails

Question

Prezados, bom dia!

Preciso disparar um e-mail automático sempre que um determinado valor seja superado; escrevi o código abaixo, mas ele não roda automaticamente pelo resultado da formula, contida na coluna "AU".
Alguém pode me ajudar?
Segue o código:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Column As Range
linha = ActiveCell.Row
texto = "A OP Nº " & Plan1.Cells(linha, 4) & ", do produto " & Plan1.Cells(linha, 13) & ", concluída em " & Plan1.Cells(linha, 9) & ", teve um refugo de " & (Plan1.Cells(linha, 47) * 100) & "%."
assunto = "Excesso de Refugo"
Set Column = Range("AU:AU")
Dim olApp As Object, olMail As Object
If Not Application.Intersect(Target, Range("AU:AU")) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 0.03 Then
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.Subject = assunto
olMail.Body = texto
olMail.To = "[e-mail]"
olMail.Send
MsgBox "Um e-mail foi enviado aos envolvidos, informando o refugo acima de 3% desta OP."
Set olApp = Nothing
Set olMail = Nothing
End If
End If
End Sub