Dim ref1 As String, ref2 As String, ref3 As String, ref4 As String
Dim j As Long
j = 5
ref1 = [CelRef].Offset(j - 1).Address
ref2 = [CelRef].Offset(j - 1, 4).Address
ref3 = [CelRef].Offset(j - 1, 8).Address
ref4 = [CelRef].Offset(j - 1, 12).Address
ActiveChart.SeriesCollection(1).Values = _
"='GLOBAL'!" & ref1 & ",'GLOBAL'!" & ref2 & ",'GLOBAL'!" & ref3 & ",'GLOBAL'!" & ref4 & ""