How do I insert the file name as my Worksheet name in the tab?

[Dennis]

I was wondering how do I automatically instert my file name as my tab name
instead of "Sheet 1" without having to right click and select "rename" and
typing the file name into the tab?

 

[Gary''s Student]

Try this tiny macro:

Sub hdksa()
ActiveSheet.Name = ActiveSheet.Parent.Name
End Sub