Sub CreateChart()
Dim note As String
Dim mysheetname As String
Dim myrange As Range
Dim datev As Range
Dim spot As Range
Dim mrv As Range
Dim i As Long
Dim CH As Chart
For i = 1 To 5
note = "GG"
mysheetname = "mm50" & note
Sheets(mysheetname).Range("c4").Select
Set datev = Range(Cells(1, 1), Cells(2510, 1))
Set mrv = Range(Cells(1, i + 1), Cells(2510, i + 1))
Set spot = Range(Cells(1, i + 6), Cells(2510, i + 6))
Set myrange = Union(datev, spot, mrv)
Set CH = Charts.Add
CH.ChartType = xlLine
CH.SetSourceData Source:=myrange
CH.Location Where:=xlLocationAsObject, Name:=mysheetname
Next i
End Sub