Rename active worksheet as workbook

[nalini.p2007]

Want to rename the name of the sheet automatically to the name of the excel file.

I have tried this below coding but sheet tab has been renamed with the name "PERSONAL.XLSB"
----------------------------------------------------------------
Dim myname
myname = ThisWorkbook.Name
ActiveSheet.Select
ActiveSheet.Name = myname
-------------------------------------------------------------------------------------------
Please help me in the earlier instance.
Thanks!!
Nalini P

 

[Jose_Chasez]

Sub rename_Sheet()
Dim x As String
x = ActiveWorkbook.Name
ActiveSheet.Name = x
End Sub

 

[Jose_Chasez]

If you prefer to not have the ".xls" in your worksheet name, the code is:

Sub rename_Sheet()
Dim x As String
x = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
ActiveSheet.Name = x
End Sub

 

[nalini.p2007]

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