Boa noite!!

Isso deve ajuda-lo!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then Range("E1").Value = Target.Row
End Sub

Att

Funcionou, mas desse jeito ele vai mudando o valor a partir da linha da célula seleiconada na coluna 1.

Obrigado, mas tipo.

Eu quero algo mais manual mesmo.

Vamos supor que só funcione se for A1 e A2.

Se a selecionada for a1, mudar o valor de e2.
Se a selecionada for a2, mudar o valor de e2.

Bom, porque se eu também quiser dar uma msgbox ao clicar na A1...

obrigado

Boa noite!!

Sinto muito mas eu não compreendi!!!
Tente explicar melhor, e com muito detalhe!!!!!!!!!!!!
Att

Bom, o que eu quero apenas aprender a a dar um comando ao clicar em algumas células.

Exemplo:

Ao clicar em A1, dar uma msgbox "oi"

Ao clicar em A2, dar uma msgbox "oioi"

Ao clicar em b5, dar uma msgbox "oioioi"

E, assim ao eu aprender a dar o comando ao clicar em determinada célula, irei adaptar ao comando que utilizarei futuramente.

Boa noite!!

Vou deixar para os colegas que entenderam sua logica

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column >= 1 Then
    MsgBox "Oi"
    End If
End Sub

Att

Veja se seria isto, se quiser outras Celulas, é só adicionar mais Cases :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sTarget
    
    sTarget = Target.Address
    
    Select Case sTarget
    
    Case "$A$1"
        MsgBox "Voce Clicou em A1"
        Range("E1").Value = 1
    
    Case "$A$2"
        MsgBox "Voce Clicou em A2"
        Range("E2").Value = 2
    
    End Select

End Sub

[]s

Obrigado, Mauro. Era isso mesmo que queria. Obrigado mesmo.

Obrigado, Mauro e Alexandere.