I have the following code at the workbook level of a spreadsheet

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("LastChange").Value = Format(Now(), "dd mmm yyyy")
Range("LastUser").Value = Environ("username")
End Sub

I have the named ranges. Why doesn't this work?

LWHite