Solved: Workbook Filename to be the Sheet Tab Label

[jammer6_9]

How can I rename sheet tabs on workbook_open(). For exmaple I would like the Filename of the workbook as the label of the sheet1

[Bob Phillips]

[vba]


Private Sub Workbook_Open()
ThisWorkbook.SaveAs ActiveSheet.Name
End Sub
[/vba]

This is workbook event code.
To input this code, right click on the Excel icon on the worksheet (or next to the File menu if you maximise your workbooks), select View Code from the menu, and paste the code

[jammer6_9]

The code that you give works but its on the other way around. I guess I have explained it very poorly sorry. Now i have twisted the code as follows but extension .xls comes out. How can I remove extension ".xls"

[vba]
Private Sub Workbook_Open()
ActiveSheet.Name = ThisWorkbook.Name 'this code give what i wanted to have but giving ".xls" extension.

End Sub

[/vba]

[vba]


Private Sub Workbook_Open()
ThisWorkbook.SaveAs ActiveSheet.Name
End Sub
[/vba]

This is workbook event code.
To input this code, right click on the Excel icon on the worksheet (or next to the File menu if you maximise your workbooks), select View Code from the menu, and paste the code

[Bob Phillips]

[vba]

Private Sub Workbook_Open()
ActiveSheet.Name = Split(ThisWorkbook.Name,".")(0)

End Sub
[/vba]

[jammer6_9]

Once again tnx xld...