how can I make this loop through all of it

[shadow12345]

I have finally found got this to work

 Sub chartcheck()

Dim txt As String, Caption As String
    Dim ChtSeries As New ChartSeries
    With ChtSeries
        'specify Chart object and series number
        .Chart = ActiveChart
        .ChartSeries = 1
        
'This gives the name of the series
Range("s1").Value = .SeriesName.Address
Range("t1").Value = .Values.Address
    End With


End Sub

I want to change it now so it gives a list of all series in the active chart (series two in row 2, series 3 in row 3 and so on)

I could just write it out ten times but there has to be a better way.