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.

-----Original Message-----
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.
.