before save virker ikke?

Hej E.
Kan i sige mig hvorfor nedenstående kode ikke bliver afviklet inden jeg gemmer excel filen?

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim strTemp As String, strUserName As String
    'Create a buffer
    strUserName = String(100, Chr$(0))
    'Get the username
    GetUserName strUserName, 100
    'strip the rest of the buffer
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
    'MsgBox "Hello " + strUserName
   
    Range("A1").Select
    ActiveCell.Value = "Last saved by:  " & strUserName & " d." & Date & " "
End Sub