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