VBA data label if isnot #N/A

[Risk]

Trying to add a data label, "Series Name" to series values which are not "#N/A".

This is what my data series looks like, the Series Name is "At Q3 '04 Prices"

This is what I'm trying to accomplish

Add Series Name to data points that are not "#N/A", centered, light blue accent 80%, red boarder.

This is my horrible attempt at the VBA, any ideas on how to do this? Only need it for ActiveChart.SeriesCollection(5)

Sub Not_NA_Data_Label()
For i = 1 To UBound(ActiveChart.SeriesCollection(5).Values)
 If Values(i) <> "#N/A" Then ApplyDataLabels AutoText:=True, LegendKey:=False, _
            HasLeaderLines:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
            ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
 '''also need to some how add .Position = xlLabelPositionCenter
Next i
 
End If

End Sub

 

[Risk]

I think I solved my own problem

Sub Series_Labels_Greater_Than_One()

    Dim srs As Series, i As Long, cht As Chart
    
   Set srs = ActiveChart.SeriesCollection(5)
   
    
    On Error Resume Next
        Set cht = ActiveChart
    On Error GoTo 0
    
    If cht Is Nothing Then
        MsgBox "Please select a chart first.", vbInformation, "No Chart Selected"
        
    Else
        srs.ApplyDataLabels AutoText:=True, LegendKey:=False, _
            HasLeaderLines:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
            ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
        
       
            For i = 1 To UBound(srs.Values)
                If srs.Values(i) < 1 Then srs.Points(i).DataLabel.Delete
            Next i
        
    End If
End Sub

 

[AlphaFrog]

This doesn't answer your specific question,s but with a quick glance at your code I noticed you have the positions of Next i and End If swapped in your code. Syntax-wise, it should be this...

Sub Not_NA_Data_Label()
For i = 1 To UBound(ActiveChart.SeriesCollection(5).Values)
 If Values(i) <> "#N/A" Then ApplyDataLabels AutoText:=True, LegendKey:=False, _
            HasLeaderLines:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
            ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
 '''also need to some how add .Position = xlLabelPositionCenter
[COLOR="Red"]End If[/COLOR]
 
[COLOR="Red"]Next i[/COLOR]

End Sub

 

[AlphaFrog]

EDIT: I see you've figured it out.

 

[Risk]

EDIT: I see you've figured it out.

but thank you very much for replying to my post.