close w/o saving
 

i have the following macro in a macro enabled template (xl 2007):

ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value
& " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject
line)
ActiveWorkbook.SendMail ",
Subject:=ActiveSheet.Name '(works right up to here)
ActiveWorkbook.Close
ActiveWorkbook.SaveChanges = False (i do not want to save any changes
made to the template - just close it.)

any suggestions on how to close the template without saving the information
that was entered?

thank you,

jat



the last two lines need some manipulation but i cannot find the right two
lines.

close w/o saving
 

Before the close line:

Application.Display Alerts = False

After the Close line:

Application.Display Alerts = True


HTH,
Paul

--

"jatman" wrote in message
...
i have the following macro in a macro enabled template (xl 2007):

ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value
& " Error Sheet.xlsx" ' (this just renames it so i can use it as the
subject
line)
ActiveWorkbook.SendMail ",
Subject:=ActiveSheet.Name '(works right up to here)
ActiveWorkbook.Close
ActiveWorkbook.SaveChanges = False (i do not want to save any changes
made to the template - just close it.)

any suggestions on how to close the template without saving the
information
that was entered?

thank you,

jat



the last two lines need some manipulation but i cannot find the right two
lines.

close w/o saving
 

i get a run-time error, 483 - object doesn't support this property or method.
when i hit debeg, it highlights the first application.display alerts = false
line.

thank you though,

jat


"PCLIVE" wrote:

Before the close line:

Application.Display Alerts = False

After the Close line:

Application.Display Alerts = True


HTH,
Paul

--

"jatman" wrote in message
...
i have the following macro in a macro enabled template (xl 2007):

ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value
& " Error Sheet.xlsx" ' (this just renames it so i can use it as the
subject
line)
ActiveWorkbook.SendMail ",
Subject:=ActiveSheet.Name '(works right up to here)
ActiveWorkbook.Close
ActiveWorkbook.SaveChanges = False (i do not want to save any changes
made to the template - just close it.)

any suggestions on how to close the template without saving the
information
that was entered?

thank you,

jat



the last two lines need some manipulation but i cannot find the right two
lines.

close w/o saving
 

Remove the space between 'display' and 'alerts'.

Regards,
Fred.

"jatman" wrote in message
...
i get a run-time error, 483 - object doesn't support this property or
method.
when i hit debeg, it highlights the first application.display alerts =
false
line.

thank you though,

jat


"PCLIVE" wrote:

Before the close line:

Application.Display Alerts = False

After the Close line:

Application.Display Alerts = True


HTH,
Paul

--

"jatman" wrote in message
...
i have the following macro in a macro enabled template (xl 2007):

ActiveSheet.Name = Range("B1").Value & " (PO# " &
Range("B5").Value
& " Error Sheet.xlsx" ' (this just renames it so i can use it as the
subject
line)
ActiveWorkbook.SendMail ",
Subject:=ActiveSheet.Name '(works right up to here)
ActiveWorkbook.Close
ActiveWorkbook.SaveChanges = False (i do not want to save any
changes
made to the template - just close it.)

any suggestions on how to close the template without saving the
information
that was entered?

thank you,

jat



the last two lines need some manipulation but i cannot find the right
two
lines.

close w/o saving
 

First of all, displayalerts has no space.

Secondly, that won't prevent saving. You must fake Excel into thinking the
workbook is already saved.

With ActiveWorkbook
.Saved = True
.Close
End With


Gord Dibben MS Excel MVP

On Thu, 28 Feb 2008 15:22:00 -0800, jatman
wrote:

i get a run-time error, 483 - object doesn't support this property or method.
when i hit debeg, it highlights the first application.display alerts = false
line.

thank you though,

jat


"PCLIVE" wrote:

Before the close line:

Application.Display Alerts = False

After the Close line:

Application.Display Alerts = True


HTH,
Paul

--

"jatman" wrote in message
...
i have the following macro in a macro enabled template (xl 2007):

ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value
& " Error Sheet.xlsx" ' (this just renames it so i can use it as the
subject
line)
ActiveWorkbook.SendMail ",
Subject:=ActiveSheet.Name '(works right up to here)
ActiveWorkbook.Close
ActiveWorkbook.SaveChanges = False (i do not want to save any changes
made to the template - just close it.)

any suggestions on how to close the template without saving the
information
that was entered?

thank you,

jat



the last two lines need some manipulation but i cannot find the right two
lines.

close w/o saving
 

Sorry about the typo. Remove the space as others have mentioned.

Before the close line:

Application.DisplayAlerts = False

After the Close line:

Application.DisplayAlerts = True


--

"jatman" wrote in message
...
i get a run-time error, 483 - object doesn't support this property or
method.
when i hit debeg, it highlights the first application.display alerts =
false
line.

thank you though,

jat


"PCLIVE" wrote:

Before the close line:

Application.Display Alerts = False

After the Close line:

Application.Display Alerts = True


HTH,
Paul

--

"jatman" wrote in message
...
i have the following macro in a macro enabled template (xl 2007):

ActiveSheet.Name = Range("B1").Value & " (PO# " &
Range("B5").Value
& " Error Sheet.xlsx" ' (this just renames it so i can use it as the
subject
line)
ActiveWorkbook.SendMail ",
Subject:=ActiveSheet.Name '(works right up to here)
ActiveWorkbook.Close
ActiveWorkbook.SaveChanges = False (i do not want to save any
changes
made to the template - just close it.)

any suggestions on how to close the template without saving the
information
that was entered?

thank you,

jat



the last two lines need some manipulation but i cannot find the right
two
lines.