Hey xlUser,
I think you mis-named the event. For:
[vba]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/vba]
substitute:
[vba]Private Sub Worksheet_DoubleClick(ByVal Target As Range, Cancel As Boolean)[/vba]

Hope this helps,

Mark

Edit: or better yet, do just backwards of what I said...