hi Kris
Test this
WSNew.Name = Left(cell.Value, Len(cell.Value) - 2) & Format(Val(Right(cell.Value, 2)) + 1, "00")

Signature
Regards Ron de Bruin
http://www.rondebruin.nl
> 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.
Kris - 28 Feb 2006 19:12 GMT
That worked great thanks.
Ron de Bruin - 28 Feb 2006 21:38 GMT
Hi Kris
Forgot this
>PS Also if anyone knows how to strip the formating from the text that
>has been copied by the script into new worksheets I could use help with
>that as well
Add WSNew.Cells.ClearFormats below WSNew.Columns.AutoFit
WSNew.Columns.AutoFit
WSNew.Cells.ClearFormats

Signature
Regards Ron de Bruin
http://www.rondebruin.nl
> That worked great thanks.