Excel 2003 - VBA is there a way to add a color gradient to cells

[LNG2013]

In Excel 2007 and up there is an easy way to add color gradient to cells. Is there such a way in 2003? In VBA I am trying to add a color gradient effect to my header. Rows A1-M1

 

[xtremegrump]

I do not know how this will look in 2003, I am using 2007.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> GradientHeading()<br><SPAN style="color:#007F00">'</SPAN><br><SPAN style="color:#007F00">' GradientHeading Macro</SPAN><br><SPAN style="color:#007F00">'</SPAN><br><br><SPAN style="color:#007F00">'</SPAN><br>    Range("A1:M1").Select<br>    <SPAN style="color:#00007F">With</SPAN> Selection.Font<br>        .Name = "Calibri"<br>        .FontStyle = "Regular"<br>        .Size = 11<br>        .Strikethrough = <SPAN style="color:#00007F">False</SPAN><br>        .Superscript = <SPAN style="color:#00007F">False</SPAN><br>        .Subscript = <SPAN style="color:#00007F">False</SPAN><br>        .OutlineFont = <SPAN style="color:#00007F">False</SPAN><br>        .Shadow = <SPAN style="color:#00007F">False</SPAN><br>        .Underline = xlUnderlineStyleNone<br>        .ThemeColor = xlThemeColorLight1<br>        .TintAndShade = 0<br>        .ThemeFont = xlThemeFontMinor<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> Selection.Interior<br>        .Pattern = xlPatternLinearGradient<br>        .Gradient.Degree = 270<br>        .Gradient.ColorStops.Clear<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> Selection.Interior.Gradient.ColorStops.Add(0)<br>        .ThemeColor = xlThemeColorDark1<br>        .TintAndShade = 0<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> Selection.Interior.Gradient.ColorStops.Add(1)<br>        .ThemeColor = xlThemeColorAccent1<br>        .TintAndShade = 0<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Range("A2").Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>



Kevin

 

[Peter_SSs]

I do not know how this will look in 2003,..

Unfortunately it won't 'look' at all. The code will not run in 2003. As far as I am aware, this is not possible in Excel 2003.