Nick

Thank you sooooooooo much. It works perfectly.

Now only one thing is there. How rename the excel tab ass per th
blocks? I mean instead of Sheet1, sheet2... Block 1 and block 2...etc?

If I use this...
NewWS.Name = "Block?"
then what should be there at the place of "?"

Prach

--
Sylvi
-----------------------------------------------------------------------
Sylvia's Profile: http://www.excelforum.com/member.php...fo&userid=3030
View this thread: http://www.excelforum.com/showthread.php?threadid=50002