Populate Cell with Assigned Cell Name

[Toner]

Good Morning,

I have a workbook that contains ten worksheets and within those worksheets, I used code to name hundreds of specific cells. See a small sample of the code below:

ThisWorkbook.Names.Add Name:="CDS_A0.A", _
RefersTo:=Worksheets("CDS-A").Range("D4")
ThisWorkbook.Names.Add Name:="CDS_A0.B", _
RefersTo:=Worksheets("CDS-A").Range("D5")
ThisWorkbook.Names.Add Name:="CDS_A0.C", _
RefersTo:=Worksheets("CDS-A").Range("D6")
ThisWorkbook.Names.Add Name:="CDS_A0.D", _
RefersTo:=Worksheets("CDS-A").Range("D7")
ThisWorkbook.Names.Add Name:="CDS_A0.E", _
RefersTo:=Worksheets("CDS-A").Range("D8")
ThisWorkbook.Names.Add Name:="CDS_A0.F", _
RefersTo:=Worksheets("CDS-A").Range("D9")
ThisWorkbook.Names.Add Name:="CDS_A0.G", _
RefersTo:=Worksheets("CDS-A").Range("D10")
ThisWorkbook.Names.Add Name:="CDS_A0.H", _
RefersTo:=Worksheets("CDS-A").Range("D11")

What I would like to do now is populate the cells with the name. For the example above, I would like "CDS_A0.A" to be put into the cell "D4" in worksheet "CDS-A".

I would also like to highlight the cells a color to make them stand out.

I have a separate worksheet that contains all the worksheet names, ranges and cell names used to create the "name".

I have searched but cannot find anything like what I am trying to do.

I appreciate you all looking at this!

[brynbaker]

Well clearly you can make a set of code from a list. So all you need is the VBA. Here is the code for the first cell:

[CDS_A0.A] = "CDS_A0.A"    ' place the name in the cell
CDS_A0.A.interior.colorindex = 3' highlight the cell in yellow

This is 2003 VBA; it wull work in 2010 but you have more colour options available.

Of course if all the cells are highlighted the same colour they won't stand out.

[Toner]

Thank you, this is just what I needed and a big help!

Note, the second line should be:

[CDS_A0.A].Interior.ColorIndex = 3

[brynbaker]

Of course it should. Happy to help

[FDibbins]

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a relatively new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.