On Wed, 14 May 2008 04:02:51 -0400, "Rick Rothstein \(MVP -
VB\)"
wrote:
strLastColumn = Split(ActiveCell.Address(True, False), "$")(0)
You can omit the True and make it even more "compact" :-))
Split(ActiveCell.Address(, False), "$")(0)
or even:
Split(ActiveCell.Address(, 0), "$")(0)
--ron