Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("D24")) Is Nothing And Range("D24") <> "" Then
sup
End If
If Not Intersect(Target, Range("P3")) Is Nothing Then
sup1111
End If
Application.EnableEvents = True
End Sub