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

a écrit dans le message de news:
...
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=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

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

thxs - work great !!
Ardus Petus wrote:
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

try

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

Duncan

wrote:

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