Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, _
ByVal Arg2 As Long)
If ElementID = 3 And Arg2 > 0 Then
With ActiveChart.SeriesCollection(Arg1).Points(Arg2)
.ApplyDataLabels Type:=xlShowValue
End With
End If
End Sub