[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_Change([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range)
[COLOR=darkblue]If[/COLOR] Target.Address(0, 0) = "P12" [COLOR=darkblue]Then[/COLOR] SORT_SAP1
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]