Code needed to close w/out saving

[GorillaBoze]

I have a macro that saves one worksheet as formated text, then I woul
like it to close the workbook without saving. The code is...

Sheets("Output").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Janece.OCI\My Documents\M
Import-OCI (Copy).prn", _
FileFormat:=xlTextPrinter, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close , Savechanges = False

I am still promted if I would like to save the changes?? An
suggestions?

-Cha

 

[Chicago]

I think it's because you turn on the alert with that
second to last line.

 

[Ron de Bruin]

This line is not correct

ActiveWorkbook.Close , Savechanges = False

Must be

ActiveWorkbook.Close Savechanges = False

 

[Guest]

-----Original Message-----
I have a macro that saves one worksheet as formated text, then I would
like it to close the workbook without saving. The code is...

Sheets("Output").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Janece.OCI\My Documents\MF
Import-OCI (Copy).prn", _
FileFormat:=xlTextPrinter, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close , Savechanges = False

I am still promted if I would like to save the changes?? Any
suggestions?

-Chad


---
Message posted

.
Application.DisplayAlerts=True

If this is changed to "False" it may close without
prompting.