two things:

1. the code should be placed in a standard module

2. I missed one line of code. The important line:

ActiveSheet.Name = rngC



look here for your workbook "TENDER SHEET":

https://skydrive.live.com/#cid=9378A...121822A3%21191





Regards

Claus Busch

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

Good as gold, Claus.

Thanks a bunch.

Regards,
Howard