View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
[email protected] transferxxx@gmail.com is offline
external usenet poster
 
Posts: 31
Default Rename active sheet with current file name

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