Macro: Exit active workbook without save?

How to create a maco button that exit the active workbook without saving?
Thanks

Hi
try
sub foo()
with activeworkbook
.saved=true
.close
end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


Param wrote:
How to create a maco button that exit the active workbook without
saving? Thanks

Or simply:

ThisWorkbook .Close False

--

Vasant


"Frank Kabel" wrote in message
...
Hi
try
sub foo()
with activeworkbook
.saved=true
.close
end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


Param wrote:
How to create a maco button that exit the active workbook without
saving? Thanks

Thanks to both of you for the quick responses. I did get your responses but
have been unable to get back on this site until tonight to thank you.....my
apologies for the lateness of this thank you but know your help is greatly
appreciated.

Don

"Vasant Nanavati" wrote:

Or simply:

ThisWorkbook .Close False

--

Vasant


"Frank Kabel" wrote in message
...
Hi
try
sub foo()
with activeworkbook
.saved=true
.close
end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


Param wrote:
How to create a maco button that exit the active workbook without
saving? Thanks