VBA Sub asignado a la celda
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Call YourMacroNameHere 'amend the address to the be cell you want, and YourmAcroNameHere to be the macro you want to activate
End Sub
Powerful Partridge