Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'Seu código vai aqui
    Cancel = True
End Sub

Importante: não remova o Cancel = True.

Muito obrigado pelo retorno, Fernando.

Não consegui fazer rodar, porque o código que eu quero, deveria selecionar a própria célula em que estou clicando...

De acordo com o que vc me passou, seria isso?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Copy
Sheets("Cadastro").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cancel = True
End Sub

Abraço!

Ricardo, como estamos lidando com Objetos diferentes devemos usar a instrução WITH - Executa uma série de instruções em um objeto ou em um tipo definido pelo usuário tirado da ajuda do VBA.

Então a rotina ficaria da seguinte forma :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Selection.Copy
    
    With Sheets("Cadastro")
        'Para colar não precisamos selecionar a aba, só se quiser
        'caso contrário desabilite esta linha
        .Select
        
        .Range("A7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Cancel = True
        
        Application.CutCopyMode = False
   
    End With
    
End Sub

[]s

Faça assim então:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    with Sheets("Cadastro")
        Target.Copy .Range("A7")
        .Range("A7").Value = .Range("A7").Value
    End With
End Sub

Excelente, Fernando!

Muito obrigado mesmo!!!

Abraço!!!