Delete all Datalabels on Chart Except Current Dates

[anne.gomes]

Hi,

I am trying to delete all datalabels in a chart except for the current dates'.

This is my code - which isnt working...

Sub Auto_Open()

Dim sery As Series
Dim Today As Date
Today = Date
 Sheets("BU Aged Analysis WIP").Select
 
For Each sery In ActiveChart.SeriesCollection
    If sery.HasDataLabels = True Then
    If sery.DataLabels <> Today Then
            sery.DataLabels.Select
            Selection.Delete
    
     End If
    
        End If
    
             Next sery

End Sub

Any help?

[Bob Phillips]

Sub Auto_Open()
Dim sery As Series
Dim label As DataLabel
Dim Today As Date
    
    Today = Date
    Sheets("BU Aged Analysis WIP").Select
     
    For Each sery In ActiveChart.SeriesCollection
        
        If sery.HasDataLabels = True Then
            
            For Each label In sery.DataLabels
            
                If label.Caption <> Today Then
                
                    label.Delete
                End If
            Next label
        End If
    Next sery
End Sub

[anne.gomes]

hi xld,

it deletes all the data labels....

Ive tried so many ways, I just can't keep the current date value on the graph :/

[EirikDaude]

You could try to change

If label.Caption <> Today Then

To

If label.Caption <> CStr(Today) Then

If that doesn't work, you could try to put

Debug.Print(label.Caption & " - " & CStr(Today))

next to the line which deletes the labels to see how the two string values differ when it prints today's date.

[anne.gomes]

Thank you EirikDaude