Use the left function to remove the last four

ActiveSheet.Name = Left(mybook.Name, Len(mybook.Name) - 4)



--
Regards Ron de Bruin
http://www.rondebruin.nl


"tcgaines" wrote in message
...

After combining worksheets from different workbooks, the name of the
worksheets, by default, is the name of the workbook, ie: products.xls.
There are many worksheets. I want to implement a loop that will will
remove ".xls" from each of the worksheet names. any thoughts?

Thanks.


--
tcgaines
------------------------------------------------------------------------
tcgaines's Profile: http://www.excelforum.com/member.php...o&userid=29608
View this thread: http://www.excelforum.com/showthread...hreadid=493879