Create the name ThisName, and give it some initial value. Then use
the following to increment the value:

ThisWorkbook.Names.Add "TheName", _
Val(Mid(ThisWorkbook.Names("TheName").RefersTo, 2)) + 1


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Random" <Random@nwhere wrote in message
...
How would I reference that in VBA? I tried using the macro
recorder,
but can't decipher what the verbage is for adding to and
subtracting.

I have tried:
ActiveWorkbook.Names("Bob").Value = _
Right(ActiveWorkbook.Names("Bob").Value,
Len(ActiveWorkbook.Names("Bob").Value)-1) + 1

But that errors out....

I can't seem to find this in the help file either... any
suggestions?

Random.


On Thu, 14 Aug 2003 20:11:31 -0500, "Chip Pearson"

wrote:

Random,

You might consider storing the value in a defined name.