"ward376" wrote in message
...
Sheet names are limited to 31 characters (through xl 2003 afaik). You
could try something like this...

ActiveSheet.Name = Left(ThisWorkbook.Name, 31) 'or right as far as
that goes

That raises the issue of uniqueness of sheet names as the leading/trailing
31 characters might be the same for more than one file.
Also, my recollection is that there are characters allowed in filenames that
are not allowed in sheetnames.