Excel VBA Duas Worksheet_Change na mesma planilha

[Fastluiz]

Boa tarde, Preciso de ajuda com esse código por favor, na verdade eu preciso ter o mesmo processo para outra seleção da planilha com outro campo que alterado ira criar um novo email com outro texto padrão. Tentei repetir o Work change mas ele não deixa, alguma dica?

 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    linha = ActiveCell.Row - 1
    If Target.Address = "$L$" & linha Then

        If Plan1.Cells(linha, 12) = "E" Then
        
        End If

        With OutMail
        .Display
         Signature = OutMail.HTMLBody
         
         End With
         
         With OutMail
         
         
         texto = "<Font Size = 4> Bom dia!<br><br>" & "<Font Size = 4> Passando para te lembrar que temos as renovações abaixo esta semana.<br> Qualquer problema para renovar fale comigo por favor pois consigo ajustar se estivermos perdendo para as congêneres. <br> " & "<br><br>" & Plan1.Cells(linha, 14) & " - " & Plan1.Cells(linha, 15) & "<br><br>" & "Precisando de ajuda conte comigo! <br><br>" & _
                    "#Vamojunto!" & Assinatura & Signature '
         
            .To = Plan1.Cells(linha, 3).Value
            .CC = ""
            .BCC = ""
            .Subject = "Próximas Renovações HDI"
            .HTMLBody = texto
            .Display  'Utilize Send para enviar o email sem abrir o Outlook
        End With
        On Error GoTo 0
        
        Range("$M$" & linha) = "Email Enviado"
        
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

 

[Midori]

Você pode colocar o processo de enviar email em uma sub com o parâmetro do texto e passar o texto padrão conforme a seleção.

 

Sub EnviarEmail(Texto As String)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim Texto As String

    Set OutApp = CreateObject("Outlook.Application")
...


Private Sub Worksheet_Change(ByVal Target As Range)
    texto1 = "<Font Size = 4> Bom dia!<...
    linha = ActiveCell.Row - 1
    
    If Target.Address = "$L$" & linha Then
        If Cells(linha, 12) = "E" Then
            Call EnviarEmail(texto1)
        End If
    End If
    
...