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