Thanks again Tom!
-----Original Message-----
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?
.
|