I need an excel macro to name ranges

[Guest]

I have a worksheet on which I have to name multiple ranges for another macro
I have created. The ranges aren't always the same size, however they always
start in column A and end in column U. I have been naming them by hand, but
when there are several hundred ranges, it takes a lot of time.

 

[Guest]

here is the code for nameing ranges

ActiveWorkbook.Names.Add Name:="Top50Rpt", RefersTo:= _
Range(Range("A1"),Range("A1").End(xlDown).offset(0, 3)

This selects a range from A1 to the end of the data in
column A and over 3 Columns. You can change the cell
reference and the offset to fit your ranges.

 

[Bob Phillips]

or more simply

Range(Range("A1"),Range("A1").End(xlDown).offset(0, 3)).Name:="Top50Rpt"


--

HTH

RP
(remove nothere from the email address if mailing direct)