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

HTH
--
AP

a écrit dans le message de news:
...
thxs!! - how can i remove the .xls from the name


Ardus Petus wrote:
Sub tester()
ActiveSheet.name=ActiveWorkbook.name
end sub

HTH
--
AP

a écrit dans le message de news:
...
Does anybody has a macro which would rename my active sheet with
current file name?

Thxs