Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("y3")) Is Nothing Then Call X
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then Call B
If Not Application.Intersect(Target, Range("P3")) Is Nothing Then Call D
End Sub