I can't make the name change colour but I can make the appropriate bar on the chart change colour. Test the attached which has this macro:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
Set cht = ChartObjects("Chart 3").Chart
Set pt = cht.PivotLayout.PivotTable
x = Application.Match(Target.Value, pt.PivotFields("Last").DataRange, 0)
With cht
.FullSeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(91, 155, 213)
If Not IsError(x) Then .FullSeriesCollection(1).Points(Application.Match(Target.Value, pt.PivotFields("Last").DataRange, 0)).Format.Fill.ForeColor.RGB = RGB(197, 90, 17)
End With
End If
End Sub