Using VBA to name intersecting ranges

[tetreama]

Hi. I'm looking for some code that will create intersecting named ranges. I have to create ranges in this format for a great number of columns. Trying to automate this somehow.

I'd like to create the following named ranges in this format:

Range Name Refers to
Table Worksheet!$A$1:$D$5
Table.Field1 Table Worksheet!$A:$A
Table.Field2 Table Worksheet!$B:$B
Table.Field3 Table Worksheet!$C:$C
Table.Field4 Table Worksheet!$D:$D

I used code from the following thread that gets me close to a solution: http://www.excelforum.com/excel-prog...-new-post.html

The problem with this code is that there are quotation marks in the range reference, such as ="Table'!$A$2:$A$5". I need the code to produce the range =Table'!$A$2:$A$5. A sample spreadsheet is attached


Thanks for anyhelp you can provide. Much appreciated.