Este fórum está sendo desativado

[Domingsp]

Estou tentando acionar uma macro ao clicar 2 vezes em determinada célula da Plan3.
O mais proximo que achei foi esse código de um livro, estou tentando adpata-lo para meu objetivo . Ele usa o evento BeforeDoubleClick e deveria tornar uma celula em negrito ao clicar 2 vezes nela ou deixar sem negrito, se ela estiver em negrito.
Como posso adapta-lo(ou usando outro codigo) para acionar macro ao clicar em determinada celula?

Código: Selecionar todos

Private Sub worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Sheets("Plan3").Activate
Target.Font.Bold = Not Target.Font.Bold
Cancel = True
End Sub

[gfranco]

Boa noite.
Veja se consegue adaptar à sua necessidade.
Funcionando de "A1:E12"

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("A1:E12")) Is Nothing Then
            If Target.Font.Bold = True Then
                Target.Font.Bold = False
      
             Else
        
                Target.Font.Bold = True
        
        End If
    
    
    End If


End Sub

[Domingsp]

Bom dia, gfranco. Obrigado pela atenção.
Aqui pra mim não funcionou ainda. Mas eu encontrei outro código que mediante 1 clique em G9, chama outra macro chamada TESTE. Ao ser chamada pela principal, ela coloca o valor de 2000 em B1, porém tambem não funciona:

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Sheets("Plan3").Range("G9").Address Then

Call teste

End If

End Sub

Sub teste()
Cells(1, 2) = 2000
End Sub

[gfranco]

boa noite.
Vou postar mais um exemplo. Mas o ideal é você postar um modelo de sua planilha (com dados fictícios mas mesma estrutura) para uma resposta mais acertada.

[Domingsp]

Esse ultimo exemplo funcionou, gfranco. Obrigado!