If fileSaveName < False Then
ActiveWorkbook.SaveAs filename:= fileSaveName
End if
ActiveWorkbook.Close SaveChange:=False

Regards,
Tom Ogilvy


"Donna Brooks" wrote in message
...
This is the code I am using to save a report I am running.

fileSaveName = Application.GetSaveAsFilename
(fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName < False Then
MsgBox "Save As " & fileSaveName
End If
ActiveWorkbook.Save
ActiveWindow.Close

How do I make it actually save the file as the name I
specify in the Save box? It just saves it as Book 1,2,
etc.

Thanks in Advance,
Donna Brooks