Rename worksheet as active workbook name

[nalini.p2007]

Hi,

wanted to rename the worksheet as per the file name of the excel.

Please suggest me any vba coding in the earlier instance.

Thanks in advance!!
Nalini P

 

[pedie]

Not sure if you mean this....

[/FONT]
[FONT=Courier New]Sub TEST()
On Error GoTo errorhndler
ActiveSheet.Name = ThisWorkbook.Name
Exit Sub
errorhndler:
MsgBox Err.Description
End Sub

 

[nalini.p2007]

Thanks for your help Pedie. i have tried this code and it is not working. sheet has been renamed as "PERSONAL.XLSB" after implementing the code .. Please advice me on this.

 

[nalini.p2007]

I am getting same error for below coding also.

Dim myname
myname = ThisWorkbook.Name
ActiveSheet.Select
ActiveSheet.Name = myname
End sub
Please help me

 

[pedie]

Thanks for your help Pedie. i have tried this code and it is not working. sheet has been renamed as "PERSONAL.XLSB" after implementing the code .. Please advice me on this.

Nalini, i thought you said you want to rename the sheet as per the workbook name...
This code will rename the active sheet as the current workbook name;

i'm not sure now what you're wanting to do

Do you have the workbook names in list/somewhere in the sheet that you want to create and rename it accordingly?

 

[nalini.p2007]

It is working perfectly. Thank you so much for your help.