Excel VBA - Enviar email com base na alteração indireta na célula, com anexo e referência de célula no texto do email

Olá,

Estou tentando enviar um e-mail com base em uma alteração indireta do valor da célula (por exemplo, > 7), com o anexo de e-mail e a referência de célula específica para as células alteradas no corpo do meu e-mail de saída. Reduzi a alteração indireta do valor da célula com base nos critérios. No entanto, estou recebendo um erro 424 ao tentar definir uma variável para chamar o endereço da célula no meu e-mail. Você poderia ajudar? Eu sinto que estou perto.

Dim xRg como intervalo
Dim xRgSel como intervalo
'Definir alcance e alvo
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre como intervalo
On Error Resume Next
Se Target.Cells.Count> 1 Then Exit Sub
Set xRg = Range("Q2:Q43")
Definir xRgPre = xRg.Precedentes
Definir xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
Se xRg.Value > 7 Então
Ligue para Mail_small_Text_Outlook
ElseIf (não xRgPre é nada) e (Intersect(Target, xRgPre).Address = Target.Adress) Then
Se acabar
Se acabar
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp como objeto
Dim xOutMail como objeto
Dim xMailBody como string
Set xOutApp = CreateObject("Outlook.Application")
Definir xOutMail = xOutApp.CreateItem(0)
xMailBody = "Olá, célula(s)" & xRgSel.Address(False, False) & _
" na planilha '" & Me.Name & "' são 3 dias após a entrada" & vbNewLine & vbNewLine & _
"Por favor, revise e entre em contato com o(s) lead(s)" & vbNewLine & _
"Obrigado"
On Error Resume Next
Com xOutMail
.Para = ""
.CC = ""
.BCC = ""
.Subject = "Dias desde a entrada de leads"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Exibir 'ou .Enviar
Terminar com
Em erro GoTo 0
Definir xOutMail = Nada
Definir xOutApp = Nada
End Sub


Obrigado!