Below my actual code. It was very simple in the end, but I will explain
what had me stumped:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
On Error GoTo Workbook_BeforeSave_Error
ActiveWorkbook.SendMail Recipients:="email.address@...",
Subject:="Raw Mat Database"
On Error GoTo 0
Exit Sub
Workbook_BeforeSave_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure Workbook_BeforeSave of VBA Document ThisWorkbook"
End Sub
------------------------------------------------------------------------
------------------
What I could not understand were the options in the command. Eventually
someone here at work showed me. Select ThisWorkbook in the VBE explorer,
select Workbook instead of General, select the BeforeSave command, add a
line of code, and viola!