I want to prevent user to perform "SaveAs" on my workbook. So, I copy below
code and tweak it. I tried to test it by selecting "SaveAs" from File Menu.
The message box didn't pop up. Please advise what I did wrong. I am using
Excel 2003, if it's relevant.

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean)

Dim lReply As Long

If SaveAsUI = True Then
lReply = MsgBox("Go Away", vbOK)
End If

End Sub