Rename active sheet with current file name

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

Thxs

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

HTH
--
AP

<[email protected]> a écrit dans le message de news:
[email protected]...
> Does anybody has a macro which would rename my active sheet with
> current file name?
>
> Thxs
>

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


Ardus Petus wrote:
> Sub tester()
> ActiveSheet.name=3DActiveWorkbook.name
> end sub
>
> HTH
> --
> AP
>
> <[email protected]> a =E9crit dans le message de news:
> [email protected]...
> > Does anybody has a macro which would rename my active sheet with
> > current file name?
> >
> > Thxs
> >

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

HTH
--
AP

<[email protected]> a écrit dans le message de news:
[email protected]...
thxs!! - how can i remove the .xls from the name


Ardus Petus wrote:
> Sub tester()
> ActiveSheet.name=ActiveWorkbook.name
> end sub
>
> HTH
> --
> AP
>
> <[email protected]> a écrit dans le message de news:
> [email protected]...
> > Does anybody has a macro which would rename my active sheet with
> > current file name?
> >
> > Thxs
> >

try

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

Duncan

[email protected] wrote:

> thxs!! - how can i remove the .xls from the name
>
>
> Ardus Petus wrote:
> > Sub tester()
> > ActiveSheet.name=3DActiveWorkbook.name
> > end sub
> >
> > HTH
> > --
> > AP
> >
> > <[email protected]> a =E9crit dans le message de news:
> > [email protected]...
> > > Does anybody has a macro which would rename my active sheet with
> > > current file name?
> > >
> > > Thxs
> > >

thxs - work great !!
Ardus Petus wrote:
> ActiveSheet.name=3DLeft(ActiveWorkbook.name, Len(Activeworkbook.name)-4)
>
> HTH
> --
> AP
>
> <[email protected]> a =E9crit dans le message de news:
> [email protected]...
> thxs!! - how can i remove the .xls from the name
>
>
> Ardus Petus wrote:
> > Sub tester()
> > ActiveSheet.name=3DActiveWorkbook.name
> > end sub
> >
> > HTH
> > --
> > AP
> >
> > <[email protected]> a =E9crit dans le message de news:
> > [email protected]...
> > > Does anybody has a macro which would rename my active sheet with
> > > current file name?
> > >
> > > Thxs
> > >