Radar chart series collection

So I can record the code to be able to create a Radar chart with the information I have on the current spreadsheet but the Series Collection Name and Values are picking up in correctly.

I need to be able to use this same code on several worksheets to create the same Radar Chart but each spreadsheet might vary with the number of rows and columns so therefore a different number of times to adjust the Series Collection Names and Value
I thought I could do something like:

For eachcol = 2 To endcol
ActiveChart.SeriesCollection(eachcol - 1).Name = "='" & cursht & "'!" & Cells(1, eachcol).Address
ActiveChart.SeriesCollection(eachcol - 1).Values = "='" & cursht & "'" & Range(Cells(2, eachcol), Cells(botrw, eachcol)).Address
Next

cursht = Sheet the information is from
endcol = the last column of information
botrw = the last row of information.

Thanks for your help