Apply Column Text as Named Range to Each Adjacent Cell

[AlvaroSiza]

Assumptions:

1. Column A contains text; Column B contains values
2. User will select a gapless range within Column A and only Column A

Upon running, I would like to apply the text of each cell within the selected range to the adjacent Column B cell as a Named Range.

(A1 = Tom; B1 = 1,300,000; Named Range for B1 becomes "Tom"; repeat through end of selection)

My effort below. I suppose I need help setting the selected range boundaries and likely developing the loop:

Please Login or Register  to view this content.

Thanks!

[JBeaucaire]

This is all you need:

Please Login or Register  to view this content.

Your use of "SET" should be to a range of cells, not to a numeric result like "Rows.Count" would give you. But there's no real need to set "variables" to things that are only going to be used one time after that. That's why I took out the strName variable, too, you're only using it once, so just use it directly.



Now I have to ask why you're doing this. If you just want to be able to get the value $1,300,000 by referencing the name "Tom", a VLOOKUP formula would do that without the extra plumbing.

[AlvaroSiza]

Thanks so much, J. Worked perfectly.

As to your latter question, it's for a huge mail merge and I wanted to define the names using the reference labels I created.