'Extract the range for the data from xVals.
' xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
' Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
' xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
' Do While Left(xVals, 1) = ","
' xVals = Mid(xVals, 2)
' Loop
xVals = Split(xVals, ",")(1)