Sub x()
Dim objChart As Chart
Dim objSeries As Series
Dim objErrBars As ErrorBars
Set objChart = ActiveSheet.ChartObjects(1).Chart
For Each objSeries In objChart.SeriesCollection
If objSeries.HasErrorBars Then
Set objErrBars = objSeries.ErrorBars
Debug.Print "Has Error bars "; objSeries.Name
Else
Debug.Print "Not for "; objSeries.Name
End If
Next
End Sub