セルの変更でマクロを実行する。

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("A4")) Is Nothing Then
     Exit Sub
    Else
  MsgBox "A4のセルが変更されました。"
 End If
End Sub

＃エクセル ＃マクロ　＃セルの変更