Excel VBA - Invia e-mail in base alla modifica indiretta nella cella, con allegato e riferimento di cella nel testo della posta

Ciao,

Sto tentando di inviare un'e-mail in base a una modifica indiretta del valore della cella (ad es. > 7), con l'allegato e-mail e un riferimento di cella specifico alle celle modificate nel corpo della posta in uscita. Ho abbassato la modifica indiretta del valore della cella in base ai criteri. Tuttavia ricevo un errore 424 quando tento di impostare una variabile per chiamare l'indirizzo della cella nella mia e-mail. Potresti aiutare? mi sento vicino.

Dim xRg come intervallo
Dim xRgSel come intervallo
'Imposta distanza e obiettivo
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre come intervallo
On Error Resume Next
Se Target.Cells.Count > 1 Quindi esci da Sub
Imposta xRg = Intervallo ("Q2:Q43")
Imposta xRgPre = xRg.Precedents
Imposta xRgSel = Interseca(Target, xRg)
ActiveWorkbook.Salva
Se xRg.Value > 7 Allora
Chiama Mail_small_Text_Outlook
ElseIf (non xRgPre non è niente) e (Intersect(Target, xRgPre).Address = Target.Adress) Allora
End If
End If
End Sub
Posta secondaria_small_Text_Outlook()
Dim xOutApp come oggetto
Dim xOutMail come oggetto
Dim xMailBody come stringa
Imposta xOutApp = CreateObject ("Outlook.Application")
Imposta xOutMail = xOutApp.CreateItem(0)
xMailBody = "Ciao, celle" & xRgSel.Address(False, False) & _
" nel foglio di lavoro '" & Me.Name & "' sono passati 3 giorni dall'assunzione" & vbNewLine & vbNewLine & _
"Si prega di rivedere e contattare il lead" & vbNewLine & _
"Grazie"
On Error Resume Next
Con xOutMail
.A = ""
.CC = ""
.BCC = ""
.Subject = "Giorni dall'assunzione di lead"
.Corpo = xMailBody
.Allegati.Aggiungi (ThisWorkbook.FullName)
.Visualizza 'o .Invia
Fine Con
On Error GoTo 0
Imposta xOutMail = Niente
Imposta xOutApp = Niente
End Sub


Grazie!