Assume rngData is a variable of type Range
set rngData = rngData.Resize(rngdata.rows.count+1)

Assume rngData is a defined name

set rng = Range("rngData")
rng.Resize(rng.rows.count+1).Name = "rngData"

Demo'd from the immediate window:

set rngData = Range("A1:Z26")
set rngData = rngData.Resize(rngdata.rows.count+1)
? rngData.Address
$A$1:$Z$27


Range("A1:Z26").Name = "rngData"
set rng = Range("rngData")
rng.Resize(rng.rows.count+1).Name = "rngData"
? Range("rngData").Address
$A$1:$Z$27

--
Regards,
Tom Ogilvy






Art wrote in message
...
Say you have a rectangular range named rngData on your
worksheet, and you want to add a new row of data to the
bottom, expanding rngData accordingly. What's the most
straightforward way to do this in code?