Excel VBA - Trimite e-mail pe baza modificării indirecte în celulă, cu atașament și referință la celulă în textul e-mailului

Buna,

Încerc să trimit un e-mail pe baza unei modificări indirecte a valorii celulei (de ex. > 7), cu atașamentul de e-mail și referința specifică la celulele modificate din corpul mesajului meu de ieșire. Am o schimbare indirectă a valorii celulei pe baza criteriilor. Totuși, primesc o eroare 424 când încerc să setez o variabilă pentru a apela adresa celulei în e-mailul meu. Ai putea ajuta? Simt că sunt aproape.

Dim xRg As Range
Dim xRgSel As Range
„Setați intervalul și ținta
Subsol de lucrări private_Change (țintă ByVal ca rază de acțiune)
Dim xRgPre As Range
La data de eroare CV următoare
Dacă Target.Cells.Count > 1, apoi Ieșiți din sub
Setați xRg = Interval ("Q2:Q43")
Setați xRgPre = xRg.Precedente
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Salvare
Dacă xRg.Value > 7 Atunci
Apelați Mail_small_Text_Outlook
ElseIf (Nu xRgPre este nimic) și (Intersect(Target, xRgPre).Address = Target.Adress) Atunci
Final, dacă
Final, dacă
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp ca obiect
Dim xOutMail ca obiect
Dim xMailBody ca șir
Setați xOutApp = CreateObject("Outlook.Application")
Setați xOutMail = xOutApp.CreateItem(0)
xMailBody = „Bună, celule(e)” & xRgSel.Address(False, False) & _
" în foaia de lucru '" & Me.Name & "' au trecut de 3 zile de admisie" & vbNewLine & vbNewLine & _
„Vă rugăm să examinați și să contactați clienții potențiali” & vbNewLine & _
"Mulțumesc"
La data de eroare CV următoare
Cu xOutMail
.Pentru = ""
.CC = ""
.BCC = ""
.Subject = „Zile de la aportul de plumb”
.Body = xMailBody
.Atașamente.Adăugați (AcestWorkbook.FullName)
.Afișează sau .Trimite
Se termina cu
La eroare GoTo 0
Setați xOutMail = Nimic
Setați xOutApp = Nimic
End Sub


Multumesc!