Event Procedure code (which is VBA code that is automatically invoked by some event/action happening) MUST follow certain rules:
1. It cannot be in a General module. It MUST be placed in the appropriate "ThisWorkbook" or "Sheet" module.
All "Workbook_BeforeSave" event procedure code MUST be placed in the "ThisWorkbook" module.
2. It MUST be named a certain way. You CANNOT edit/change anything in this procedure name row, i.e. this one MUST start out with:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If you change the name of it, it will NOT run automatically.
You just want to add the line in red from my previous post to your current procedure.
When you try to save the file, it should run automatically, and return a Message Box to your screen.
Show me exactly what that Message Box is returning.