hi Kris
Test this
WSNew.Name = Left(cell.Value, Len(cell.Value) - 2) & Format(Val(Right(cell.Value, 2)) + 1, "00")
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Kris" wrote in message oups.com...
Yes, they all have two numeric characters at the end and also an
apostrophe " ' " but that isn't important and can be removed it if
makes coding this any easier.
Thanks for the help Ron I know many of us depend on you for your
talents.