Olá , esta evento executa uma macro toda vez que uma célula ou intervalo de células são selecionado , as celulas podem ser determinadas por vc.
Ponha esta macro no Módulo da Planilha WorkSheet.
Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
If Intersect(target, Range("A1:B10")) Is Nothing Then Exit Sub
MsgBox ("O Poder do Excel")
End Sub