namenfeld per doppelklick

Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)
cancel = True
Dim letztezeile As Integer
With Worksheets("Rechnung")
letztezeile = .Range("a65536").End(xlUp).Row + 1
If letztezeile < 16 Then letztezeile = 16
.Cells(letztezeile, 2).Value = Cells(ActiveCell.Row, 3)
.Cells(letztezeile, 3).Value = Cells(ActiveCell.Row, 2)
.Cells(letztezeile, 4).Value = Cells(ActiveCell.Row, 4)
End With
End Sub

Jetzt möchte ich wissen, ob man auch ein namensfeld per doppelclick in eine andere Tabelle kopieren kann.
Also wenn ich in das namenfeld doppelklicke das es dann kopiert wird

Wenn es eine Möglichkeit gibt wäre ein Beispiel nett

Danke in voraus
Gruß gerd