• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 245
  • Last Modified:

In range, name a single-cell range the text in the field to the right of the cell

I have various named ranges that, for example, go from N6:S22.  However within this range, in the column Q, in each row in the range, the cell in column Q needs to be range-named the text that is in column R for that cell.  For example, cell Q15 needs to be range-named what the text is in cell R22.  So, i have a range names "ss_WAL" that is N6:S22,  I need to loop through the Q6:Q22 cells and range-name them the values in R6:R22.  All this must be done in VBA.  I have the below but am not sure how to proceed.
With ThisWorkbook.Worksheets("Datasource").Range("ss_WAL")
                    .Cells(intCount, 4).AddComment Me.txtRangeName.Value  'Adds comment with range name
                    .Cells(intCount, 4).Name = .Cells(intCount, 5).text   'Defines the name of the range for the column number
End With

Open in new window

0
Sandra Smith
Asked:
Sandra Smith
  • 2
1 Solution
 
SiddharthRoutCommented:
You can do this simply using this

With Worksheets("Datasource")
    For i = 6 To 22
        .Range("Q" & i).Name = .Range("R" & i).Value
    Next
End With

Open in new window


Sid
0
 
Sandra SmithRetiredAuthor Commented:
Sid, let me try that.  
0
 
Sandra SmithRetiredAuthor Commented:
It works perfectly.  Now, am posting another related question on this top that extends what I need to do.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Exchange Server

The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now