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

Thxs