Rename active sheet with current file name

[transferxxx]

Does anybody has a macro which would rename my active sheet with
current file name?

Thxs

 

[Ardus Petus]

Sub tester()
ActiveSheet.name=ActiveWorkbook.name
end sub

HTH

 

[transferxxx]

thxs!! - how can i remove the .xls from the name

 

[Ardus Petus]

ActiveSheet.name=Left(ActiveWorkbook.name, Len(Activeworkbook.name)-4)

HTH

 

[Duncan]

try

ActiveSheet.Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -
4)

Duncan

 

[transferxxx]

thxs - work great !!

ActiveSheet.name=Left(ActiveWorkbook.name, Len(Activeworkbook.name)-4)

HTH
--
AP

<[email protected]> a écrit dans le message de (e-mail address removed)...
thxs!! - how can i remove the .xls from the name