Change in One Cell that Prompts Email to Address in Adjacent Cell

[Excel Fox]

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("P:P"), Target) Is Nothing Then
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        strbody = "The changed value is " & Target.Value 'Would like to put a message here with the changed value included in the text
    
        On Error Resume Next
        With OutMail
            .To = Range("B" & Target.Row).Value 'email from corresponding row goes here
            .CC = ""
            .BCC = ""
            .Subject = "Subject"
            .Body = strbody
            'You can add a file like this
            '.Attachments.Add ("C:\")
            .Display   'or use .Send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
    
End Sub