Boa noite!!

Use a pesquisa do fórum!

Leia também:
http://www.jorgepaulino.com/search?q=teclas+atalho

Att

Boa noite!!

Use a pesquisa do fórum!

Leia também:
http://www.jorgepaulino.com/search?q=teclas+atalho

Att

Obrigado por responder, foi muito útil o link, adquiri mais conhecimento, porém não é exatamente o que quero, o botão só funciona com clique e eu gostaria que funcionasse com o enter, no botão tem uma macro, e eu não gostaria de associar teclas a macro, gostaria que funcionasse como na pesquisa do google, ex: digitamos no google e precionamos enter, e ele dá o resultado da pesquisa, ou clicamos em pesquisar. seria isso que eu queria, aguardando mais respostas...

Boa noite!!

Pelo que eu estou percebendo, vai ser complicado...
Tente usar o metodo SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "~", "SuMacro"
End Sub

Tente usar o metodo Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Sua_Célula_Ou_Intervalo_Alvo")) Is Nothing Then
SuaMacro
End If
End Sub
Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Sub Workbook_Open()
    GetAsyncKeyState vbKeyReturn
End Sub

Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
        If GetAsyncKeyState(vbKeyReturn) Then
            MsgBox "Enter key pressed within range A1:A100"
        End If
    End If
End Sub