Adding multiple new series to a Scatter chart

Hi All,
I am attempting to create a macro to add multiple series to a scatter chart. I have a range for both the X and Y Values (see attached).
At present, I have been manually adding series one by one to the chart, but I have roughly a hundred series to add so this could get tiresome.
I am fairly new to coding/VBA so your help would be much appreciated.

Cheers,
Matt

TEST.xlsx

This is great Andy, thanks heaps.
Just to follow exactly what you have done here, you have set Xdata and Ydata as a Range, and somewhere told it to grab 3 columns of data for each.
For example, if I wished to add another column for both X and Y for an additional data plot for each series, how would I modify the code?
Thanks again for your help, and sorry if these are all basic 'newbie' type questions.
Best,
Matt

hi Matt, welcome to Excelforum, option, press Run button or run code "test" - ALT+F8, select "test", press Run button

Thanks Andy,
Have I done something wrong here? It does not seem to want to plot when I change the code to denote one column as you suggest above.
I have also added a title and axis labels to the code, which seems to be working ok.
Thanks again for your help.
Cheers,
Matt

    
Public Sub CreateChart_SingleCol()
    
    Dim RowIndex As Long
    Dim XData As Range
    Dim YData As Range
    Dim NameData As Range
    Dim Cht As Chart
    
    
    ' reference data
    Set NameData = Range("A3", Range("A3").End(xlDown))
    Set YData = NameData.Offset(0, 1).Resize(NameData.Rows.Count, 1)
    Set XData = YData.Offset(0, 1)
    
    ' get chart and remove existing data
    Set Cht = ActiveSheet.ChartObjects(1).Chart
    With Cht
        Do While .SeriesCollection.Count > 0
            .SeriesCollection(1).Delete
        Loop
    
        ' add rows of data
        For RowIndex = 1 To NameData.Rows.Count
            With .SeriesCollection.NewSeries
                .Name = "='" & NameData.Parent.Name & "'!" & NameData.Cells(RowIndex, 1).Address(xlR1C1)
                .Values = "='" & YData.Parent.Name & "'!" & YData.Rows(RowIndex).Address(xlR1C1)
                .XValues = "='" & XData.Parent.Name & "'!" & XData.Rows(RowIndex).Address(xlR1C1)
                With .Format.Line
                    .EndArrowheadStyle = msoArrowheadTriangle
                    .ForeColor.RGB = 5296274 ' green
                    .Weight = 1
                End With
                .Smooth = True
            End With
        Next
        ' Set Chart Title
        .HasTitle = True
        .ChartTitle.Text = ActiveSheet.Cells(1, 1)
        
        ' Set Axis Title
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Text = ActiveSheet.Cells(1, 3)
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Text = ActiveSheet.Cells(1, 2)
        
    End With
    
End Sub

Ah, now I feel foolish. Changing chart type would be useful ;-)
Thanks very much Andy for your help.
Regards,
Matt

Hi Andy,
Sorry to bother you again. I have been trawling the internet for a VBA solution to format the markers as defined (in the example, determined by column D).
I have not yet been able to implement any of them successfully.
Can you help at all?

Thank you kindly.
Best,
Matt