vba remove only last data label from column chart

[gtd526]

Hello,
Delete only the last data label so I can replace it when a new column is added.
Here is the code I use to add the last data label.

Sub Test()
'add Last Data Label

  Dim mySrs As Series
  Dim iPts As Long
  Dim vYVals As Variant
  Dim vXVals As Variant

'select and activate chart
ActiveSheet.ChartObjects("WagersChart").Activate

  If ActiveChart Is Nothing Then
    MsgBox "Select a chart and try again.", vbExclamation
  Else
    Application.ScreenUpdating = False
    For Each mySrs In ActiveChart.SeriesCollection
      With mySrs
        vYVals = .Values
        vXVals = .XValues
        ' clear existing labels
'        .HasDataLabels = False  'gets rid of current data labels
        For iPts = .Points.Count To 1 Step -1
          If Not IsEmpty(vYVals(iPts)) And Not IsError(vYVals(iPts)) _
              And Not IsEmpty(vXVals(iPts)) And Not IsError(vXVals(iPts)) Then
            ' add label
            mySrs.Points(iPts).ApplyDataLabels _
                ShowValue:=True, _
                AutoText:=True, LegendKey:=False
            Exit For
          End If
        Next
      End With
    Next
    ' legend is now unnecessary
    ActiveChart.HasLegend = False
    Application.ScreenUpdating = True
  End If

End Sub

 

[EXCEL MAX]

Try this ...

mySrs.Points(iPts).DataLabel.Delete

 

[gtd526]

Try this ...

mySrs.Points(iPts).DataLabel.Delete

Thank you. It deletes the last point.

 

[EXCEL MAX]

I'm glad you found this as solution.