I can't get event procedures to work for me

i pasted this one on the code window for sheet one and it didn't work
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, _
Cancel As Boolean)
Cancel = True
MsgBox "Shortcut menus are disabled in this worksheet!"
End Sub

hel

--
Message posted from http://www.ExcelForum.com