VBA Excel Creating Sparkline
<p>Creating Sparkline in a merged cell referenced as "Section3". The Data I want to reference for the Sparkline chart is located in a named field "TBLCOL3".</p>

<pre><code>&lt;Sub Macro14()
Dim ws As Worksheet
Dim i As Integer
Dim rng3 As Range
Dim rng4 As Range

Set ws = ActiveSheet
i = 3

Set rng3 = ActiveSheet.Range("Section" &amp; i)
Set rng4 = ActiveSheet.Range("TBLCOL" &amp; i)

rng3.SparklineGroups.Add Type:=xlSparkLine, SourceData:=CStr(rng4.Address)
Selection.SparklineGroups.Item(1).SeriesColor.ThemeColor = 5
Selection.SparklineGroups.Item(1).SeriesColor.TintAndShade = -0.499984740745262
Selection.SparklineGroups.Item(1).Points.Negative.Color.ThemeColor = 6
Selection.SparklineGroups.Item(1).Points.Negative.Color.TintAndShade = 0
Selection.SparklineGroups.Item(1).Points.Markers.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Markers.Color.TintAndShade = - _
    0.499984740745262
Selection.SparklineGroups.Item(1).Points.Highpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Highpoint.Color.TintAndShade = 0
Selection.SparklineGroups.Item(1).Points.Lowpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Lowpoint.Color.TintAndShade = 0
Selection.SparklineGroups.Item(1).Points.Firstpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Firstpoint.Color.TintAndShade = _
    0.399975585192419
Selection.SparklineGroups.Item(1).Points.Lastpoint.Color.ThemeColor = 5
Selection.SparklineGroups.Item(1).Points.Lastpoint.Color.TintAndShade = _
    0.399975585192419
End Sub&gt;
</code></pre>

<p>I'm using i=3 as this is the foundation for a loop that I will create. I have already created the code that goes through every table and creates one merged cell 2 columns to the right of my Table, Names the merged Cell as "Section" &amp; i. And then finds the 3rd data column in my Table and names it "TBLCOL" &amp; i.</p>

<p>This is the last piece to the puzzle- any feedback would be much appreciated. The above code returns the global failure error message. I know that corresponds to the variable reference but am unable to resolve on my own.</p>

<p><em>Edit: Modified for first comment and added formatting gathered during "Record Macro"</em></p>