need to add cells to macro

[g48dd]

Excel 2003: All of these cells are associated with a data down load for the net. I mark them with the color Pale Blue. When the down load takes place, I loose the background color format. I want that to happem as that is how I tell if data actaully down loaded or not, but I need to replace the Pale Blue (37), before next down load. I used macro recorder to record this little macro:

Sub Macro1()
'
    Range("A10,A13,A16,A18").Select
    Range("A18").Activate
    With Selection.Interior
        .ColorIndex = 37
        .Pattern = xlSolid
    End With
    Range("A1").Select
End Sub

The Range("A10....A18"), I don't need that range, I need this:

"A12,A16,A35,A38,A69,A72,A103,A106,A137,A140," & _
"A172,A175,A207,A210,A242,A245,A277,A280,A311,A314,A346," & _
"A349,A381,A384,A416,A425,A453,A456,A488,A491,A532,A526," & _
"A558,A561,A593,A596,A628,A631,A663,A667,A686,A690,A709," & _
"A713,A732,A756,A759,A791,A794,A826,A830,A849,A853,A872," & _
"A918,A921,A953,A956,A988,A993,A1012,A1015,A1047,A1050,A1082" & _
"A1085,A1117,A1120,A1152,A1156,A1176,A1181,A1200,A1204,A1224,A1228" & _
"A1248,A1252,A1272,A1276,A1296,A1300,A1320,A1324,A1344,A1348,A1368" & _
"A1372,A1392,A1396,A1416,A1420,A1440,A1444,A1464,A1468,A1488,A1492" & _
"A1512,A1516,A1536,A1540,A1560,A1564,A1584,A1588,A1608,A1612,A1656" & _
"A1660,A1680,A1684,A1704,A1708,A1728,A1732,A1752,A1756,A1776,A1780" & _
"A1800,A1804,A1824,A1828,A1848,A1852,A1872,A1876,A1904,A1908,A1939" & _
"A1943,A1974,A1977,A2009,A2012,A2044,A2047,A2079,A2082,A2114,A2117" & _
"A2149,A2152,A2184,A2187,A2219,A2222,A2254,A2257,A2289,A2292,A2324" & _
"A2328,A2347,A2351,A2370,A2374,A2393,A2396,A2428,A2431,A2463,A2466" & _
"A2498,A2501,A2533,A2536,A2568,A2571,A2603,A2606,A2638,A2641,A2673" & _
"A2677,A2696,A2699,A2731,A2765,A2768,A2800,A2803,A2835,A2838,A2869" & _
"A2884,A2887,A2919,A2922,A2941,A2944,A2955,A2958,A2977,A2980"

But I writing it wrong, I just thought that I would substitute my range for the little macro range, but mine is a bit more complicated as I need to use the & _ can someone show me how to do it. You don't have to do the whole thing just tell me why my sustitution will not work.

Thank You
Ken

 

[njimack]

Why don't you just create a named range that refers to the cells in question, then use something like the below?
Range("Range1").Interior.ColorIndex = 37

 

[g48dd]

I guess because I can't figure out how to do that. The only way I know how to name a range is highlight the cells you want and the type the name in and hit enter. Now you have a named range and you could use that in a macro. But I was trying to avoid having to highlight all these cells, I keep screwing it up and having to start all over.

I think what you want me to do is name the range a VBA way which I don't know but I will go google and try and find out.