getting a second BeforeDoubleClick to work on the same sheet

I have a sheet that the following works great on ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B33:B44")) Is Nothing Then
Application.EnableEvents = False
If ActiveCell.Value = ChrW(&H2713) Then
ActiveCell.ClearContents

Else
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application.EnableEvents = True
End Sub

so on the same worksheet i would like to get the Dble Click to fire a copy and paste (value only) COPY from cells A63:A65 (depending on which cell i dble click) and PASTE to cell F60 on the same sheet... i have the following, no error but it doesn't do anything that i can tell.

Private Sub Worksheet_BeforeDoubleClick2(ByVal Target As Range, Cancel As Boolean)
If Not Active(Target, ("A63:A65")) Is Nothing Then
Application.EnableEvents = False
If ActiveCell Then
ActiveCell.ClearContents
Else
Selection.Copy
Range("F60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End If
Application.EnableEvents = True
End Sub

I obviously dont know what i am doing please help...

You can't make up your own Events - i.e. Worksheet_BeforeDoubleClick2. That code will never run.

It's not clear to me what you want to do, but I hope the following will be of assistance:

Please Login or Register  to view this content.

THANKS guys YES all of you were all over it... I copied and pasted MGS' and all was perfect... wish I would have asked before I struggled with it for 2 hrs.