Maybe you could just copy that worksheet to a new workbook and then save from
the

Option Explicit
Sub testme01()
Dim FileSaveName As Variant

FileSaveName = Application.GetSaveAsFilename("", _
fileFilter:="CSV Files (*.CSV), *.csv")

If FileSaveName < False Then
MsgBox "Save As " & FileSaveName
ActiveSheet.Copy 'to a new workbook
ActiveWorkbook.SaveAs FileSaveName, FileFormat:=xlCSV
ActiveWorkbook.Close savechanges:=False
End If

End Sub

nmagerl wrote:

I am using the following code in a form running from a Macro in Excel
2002:
filesavename = Application.GetSaveAsFilename("", _
fileFilter:="CSV Files (*.CSV), *.csv")

If filesavename < False Then
MsgBox "Save As " & filesavename
End If
ActiveWorkbook.SaveAs filesavename, FileFormat:=xlCSV

The workbook saves as a new CSV file but changes the name of the active
sheet.
What can I do about this?

Thanks

--
nmagerl
------------------------------------------------------------------------
nmagerl's Profile: http://www.msusenet.com/member.php?userid=1614
View this thread: http://www.msusenet.com/t-1870456325

--

Dave Peterson