VBA to send 2 different emails from 2 different columns if they change

[amwu]

I have a working VBA Macro that sends an email if the value in column I changes. How do I change this so that it sends a different email to someone else if the value in Column M changes?
This is a snippet of my current code. Do I create another "Private Sub"? or just repeat what I need before the "End Sub" and redefine the range to "M:M"?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("I:I"), Target)
If xRg Is Nothing Then Exit Sub
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Dim R As Long
......
With xOutMail
.To = "email address"
.CC = ""
.BCC = ""
.Subject = "For Your Review"
' .Body = FileType & ": " & Filename & " has been submitted for your Review by " & Originator
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

 

[HaHoBe]

Hi amwu,

maybe try the change of codeline

Set xRg = Intersect(Range("I:I"), Target)

to

Set xRg = Intersect(Range("I:I,M:M"), Target)

Ciao,
Holger

 

[amwu]

Thanks - I see, but how can I change the contents of xOutMail? Message and recipient will be totally different. Maybe query the current column and then set up the email contents?

 

[HaHoBe]

Hi amwu,

you could try something like

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Dim R As Long
'On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("I:I, M:M"), Target)
If xRg Is Nothing Then Exit Sub
Select Case xRg.Column
  Case 9
    'data for first mail
  Case 13
    'data for second mail
End Select
....

Ciao,
Holger

 

[amwu]

Work perfectly!!! Thank you so much!