xcelVBAで散布図の作成(xlXYScatterLinesNoMarkers)を自動化したい

解決したいこと

ExcelVBAで散布図の作成(xlXYScatterLinesNoMarkers)を自動化したいと考えていますが上手くいきません。。。
データの形式は一列目にxのデータがあり、2列目以降にy1,y2,y3・・・とデータが並んでいるのでyの数だけ散布図を作成して別シートに並べるマクロを作りたいです。コード例があれば見せていただけないでしょうか。

自分で試したこと

現状だと、データ範囲の選択でつまづいています。
SeriesCollectionのところで、『オブジェクトは、このプロパティまたはメソッドをサポートしていません』というエラーがでます。

    With ws3.Shapes.AddChart.Chart
        .ChartType = xlXYScatterLinesNoMarkers
        .SeriesCollection.XValues = ws2.Range(ws2.Cells(3, 1), ws2.Cells(cmax, 1))
        .SeriesCollection.Values = ws2.Range(ws2.Cells(3, 2), ws2.Cells(cmax, 2))

    End With