Thanks, it worked great.. I will take your code and learn what it does,
and how it works, so I will know next time.

intNumber = CInt(Replace(.Text, "JA", "")) + 1
..Text = "JA" & Format(intNumber, "00000")

Is there any books that you suggest so I study to learn more indepth
excel?

Thanks again!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!