macro to change tab name to file name

[Guest]

I need a macro to change the name of a tab to the name of the Excel file.

Here's what I've got (the original name of the tab is "compliled"). It
doesn't work:

Sheets("compiled").Select
Sheets("compiled").Name = Filename

Thanks

 

[Bob Phillips]

Is Filename a variable? if so, it works fine. Make sure there are no invalid
characters such as /

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[JW]

Like Bob said, if Filename is a variable holding the filename, then it
works fine.
Filename=ActiveWorkbook.Name
Sheets("compiled").Name = Filename
or
Sheets("compiled").Name = ActiveWorkbook.Name

 

[Guest]

Thanks.

How do I keep the tab name from becoming "somefilename.xls"? I need to
leave the .xls off so that the tab name becomes just "somefilename".

 

[JW]

Thanks.

How do I keep the tab name from becoming "somefilename.xls"? I need to
leave the .xls off so that the tab name becomes just "somefilename".

Could do something like this, but it is assuming that the extension
will always be 4 characters, which will most likely work for what you
need.
Sheets("compiled").Name = _
Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4)

 

[Guest]

Thanks JW. That was exactly what I needed.

Could do something like this, but it is assuming that the extension
will always be 4 characters, which will most likely work for what you
need.
Sheets("compiled").Name = _
Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4)