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