Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 241
  • 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
ssmith94015
Asked:
ssmith94015
  • 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
 
ssmith94015Author Commented:
Sid, let me try that.  
0
 
ssmith94015Author Commented:
It works perfectly.  Now, am posting another related question on this top that extends what I need to do.
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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