The only time I've seen excel change the worksheet name is when I saved the file
as a .csv file.

Any chance you did this?

I think I'd be more explicit on the .saveas line:

ActiveWorkbook.SaveAs Filename:=fn, FileFormat:=xlNormal

And when I canceled the dialog, you're code blew up on me.

This will make the boolean compare work:

dim fn as variant


"E.Anderegg" wrote:

Unfortunately not or I oversee something...
Here is the code I use

Sub Speichern_Abfragen()
Dim fn As String
fn = Application.GetSaveAsFilename(InitialFileName:= _
Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4), _
Title:="MaxTalk Datei speichern...", _
fileFilter:="Excel Files (*.xls), *.xls")
If fn < False Then
ActiveWorkbook.SaveAs fn
End If
End Sub

It saves the current workbook under the name fn and also renames the current
active Worksheet to the name (as in fn).
What's wrong????

regards
Ernst

"Lanc e" schrieb im Newsbeitrag
...
If I understand you correctly....
from the excel help file:

Saves a copy of the workbook to a file but doesn't modify
the open workbook in memory.

Syntax

expression.SaveCopyAs(Filename)

expression Required. An expression that returns a
Workbook object.

Filename Required. Specifies the file name for the copy.


-----Original Message-----
I have a workbook with different sheets.
In a macro i get the desired Filename with
applicationGetSaveAsFilename
....
then with activeworkbook.saveas I try to save it
programmatically.
The file is saved under the correct name, but
unfortunately the active
worksheet ist renamed with the filename. How can I avoid
it?

Thanks for all help
Ernst


.


--

Dave Peterson