Naming a range without selecting it

[belle_the_cat]

Hi guys,

I want to name two ranges without using select, but I'm totally stuck. This is part of a longer macro so I'm just pasting the relevant bits.
This is what I'm trying to do, but without selecting:

Range("A:B").Select
Range(Selection, Selection.End(xlDown))
Selection.Name = "importLookup"

Range("A:A").Select
Range(Selection,Selection.End(xlDown))
Selection.Name = "importNames"

The length of the list will vary, and I've already got a variable for the last row, I tried doing this:

Dim lrImport as Long
lrImport = Worksheets("Import").Range("A" & Rows.Count).End(xlUp).Row

Range("A:A" & lrImport).Name = importLookup
Range("A:B" & lrImport).Name = importNames

Which didn't work, presumably because I'm a huge idiot.

I keep looking at this thread, and I feel like it contains the answer, but I can't seem to figure out how to put it into practice.
Any help would be extremely appreciated!

 

[6StringJazzer]

The second bit should look like this:

Dim lrImport as Long
lrImport = Worksheets("Import").Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & lrImport).Name = importLookup
Range("A1:B" & lrImport).Name = importNames

 

[Max1616]

Try this:

Dim lrImport as Long
lrImport = Worksheets("Import").Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & lrImport).Name = "importLookup"
Range("A1:B" & lrImport).Name = "importNames"

What I changed:

• Added "1" to the start of your range "A1:A..." - You were missing the start cell row value
• I put your range name in quotes

I hope this works for you! Good luck!

 

[belle_the_cat]

Try this:

Dim lrImport as Long
lrImport = Worksheets("Import").Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & lrImport).Name = "importLookup"
Range("A1:B" & lrImport).Name = "importNames"

What I changed:

• Added "1" to the start of your range "A1:A..." - You were missing the start cell row value
• I put your range name in quotes

I hope this works for you! Good luck!

Thank you so much!! I really appreciate your help. I've seriously been at this for hours, trying to figure out what I was doing wrong. :P

 

[6StringJazzer]

The second bit should look like this:

I missed the names not in quotes. Kudos to Max1616.