Send an email listing cell data when workbook is modified.

Hey guys, as the name says, I'm VB challenged. I managed to piece together a code that sends an email to certain users when a document is updated. It works great, but I would really like for it to also list the data/info of the cell or row that was modified. The workbook is basically a log file. Here's what I have...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Set rng1 = Intersect(Range("C:C"), Target)
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
rng1.Offset(0, 1).Value = Date
Application.EnableEvents = True
Dim OutApp As Object
    Dim OutMail As Object
    Const SendTo As String = "john.doe@anon.com;jane.doe@anon.com"

    Set OutApp = CreateObject("Outlook.Application")

    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = SendTo
        .Subject = " New Prototype Request"
        .Body = " You are receiving this auto-message because this user has issued a new prototype request. Please check the log for the number and required documentation"
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Thanks in advance!

Hi

Can you try this

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim OutApp As Object
  Dim OutMail As Object
  Const SendTo As String = "john.doe@anon.com;jane.doe@anon.com"

  If Not Intersect(Range("C:C"), Target) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Value = Date
    Application.EnableEvents = True
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
      .To = SendTo
      .Subject = " New Prototype Request"
      .Body = " You are receiving this auto-message because this user has issued a new prototype request." & vbCr _
            & "Please check the log for the number and required documentation" & vbCr _
            & Target.Address & Target.Value
      .Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
  End If
End Sub

did this work?

Thanks....but no dice. This is the email I got...

" You are receiving this auto-message because this user has issued a new prototype request.
Please check the log for the number and required documentation
$C$10y "

Even if it could display the entire row that was modified, that would be great.... Any ideas?

Bump......