Close messages

[Klartigue]

I close a worbook with this code:

[VBA]Sub CloseSheet()

Windows("Avalon Balanced Accounts.xls").Activate
ActiveWindow.Close
End Sub[/VBA]

After copying data on a workbook and pasting it into a new sheet, I want to close the original worbook in which i copied data from.
After I run this code to close the original workbook, I get two messages about closing the book. The first one asks if i want to save changes, and I want to say "No.". The second message pops up after that and says there is a large amount of information copied, and do I want to save it to the clipboard. I also want to say "No" here. How do I incorporate that into my code to say no to both messages?

[CodeNinja]

Try this:
[vba]
Sub CloseWorkbook()
ThisWorkbook.Saved = True
Application.CutCopyMode = False
ThisWorkbook.Close
End Sub[/vba]

Of course you could change ThisWorkbook with ActiveWorkbook or set a variable as a workbook and close that instead...

[fredlo2010]

Hi,

This should do it. Change "Your Workbook Name" to match your own workbook.

[VBA]Application.DisplayAlerts = False

Windows("Your Workbook Name.xls").Close

Application.DisplayAlerts = True
[/VBA]