So you have a list of named ranges' names in Range("ChanelSelRnge"), with the likes of:
SmoothedDataSet3
SmoothedDataSet6
SmoothedDataSet12

If so try (untested):
[vba].Values = Worksheets("Data").Range(Worksheets("CorrectedData").Range("ChanelSelRnge") (i))
[/vba] and you might get away with:
[vba].Values = Worksheets("Data").Range(Range("ChanelSelRnge")(i))[/vba]
or even:
[VBA].Values = Range(Range("ChanelSelRnge")(i))[/VBA]