ActiveWorkbook.Names.Add Name:="TEST", RefersTo:=Range("A1",Cells(
movs,100))


--

HTH

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


"Arturo" wrote in message
...
I have a variable that holds a number.
I have a start point for a named range that needs to go out the number of
columns based on that variable. The following works wonderfully for
vertical
situations but I need that variable "movs" to denote the column not row.

movs = Sheets("WIP2").Range("I4").Value
ActiveWorkbook.Names.Add Name:="TEST", RefersTo:=Range("A1:A" & movs)

Spastic morning,
Arturo