Can someone help me round this code down 

            Application.Goto Reference:="RANGE1"
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False
        
            Application.Goto Reference:="RANGE2"
   Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False
        
            Application.Goto Reference:="RANGE3"
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False
I have all these Ranges called RANGE1, RANGE2, ETC and copy these three lines all day which is cumbersome. Is it possible if I know how many ranges of data I have to consolodate this code or use the names of the Ranges on the 1st line with some trick..?