Thank you TJ for the reply.
I believe the script you mentioned works only within Excel and I needed a
script that I could use outside Excel.

"tjtjjtjt" wrote in message
...
Sub NameSheet()
ActiveSheet.Name = ActiveWorkbook.Name
End Sub
--
tj


"Dragon" wrote:

Hi,

I have 4 Excel files that are created on a regular basis. Each file has
one
worksheet. I need to find an automated method (VB Script?) that will
simply
rename the worksheets within the files to the name of the file. For
Example,
if I have a File1.xls with Sheet1 in it, script will simply rename the
Sheet1 to File1 or File1.xls. I need to do this to all my 4 files on a
regular basis so I will simply schedule this script. I need this method
outside excel so that it is portable. If I need to have either Excel or
Excel viewer, it is ok as well.

Thank you.