Target Range with Outlook Issue - excel

Question

I have been struggling with this for some time. I am trying to use Target Range
to allow my Outlook VBA code to send emails to specific individuals from a dropdown list for each row in excel. I can get the first row to work properly but after that, each row below does not function properly. It will not populate a new email for that specific row.
I have tried various ways to get the code to work but it is a no-go. Here is my code. Again I am trying to get this to work with several rows within the sheet, works for the first row and nothing after. The drop-down list corresponds to another column within my sheet so it knows where to get the email from.
My Code is as followed:
Private Sub Worksheet_Change
Application.EnableEvents = False
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("G18:G500")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = Range("V18").Value
.Subject = "You have a new onboarding activity"
.Body = "Please complete this line item within 2 days of receiving this message. Please update spread sheet progress once you have completed the task."
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub