email after update sheetname, user

Is there a way to send an email when my workbook has been updated? It would have to contain what worksheet was updated and hopefully the user who updated it (if possible).

I am currently using a Ron De Bruin example that sends a basic email letting people know it has been saved without specifics.

Anyone? Here is what I am using:

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim OutApp As Object
    Dim OutMail As Object
    Const SendTo As String = "nobody@email.com"

    Set OutApp = CreateObject("Outlook.Application")

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

    With OutMail
        .To = SendTo
        .Subject = ThisWorkbook.Name & " has been amended"
        .Body = " The Incident report log has been updated.  Ken, is this okay for an update?"
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub