How can I add answers to questions?

[Jediantman]

So thanks to this website I've managed to create my macro to consolidate all my spreadsheets, thank you!!


The only slightly annoying issue left is when it prompts me to answer the questions:


"Do you want to save the changes you made to 'Spreadsheet.xlsx'


and


"There is a large amount of information on the Clipboard. Do you want to be able to paste this information into another program later?"


Would there be any standard code to eradicate these questions, when the answer will always be no?


Any and all advice is greatfully received.


Thanks Ant.

 

[Luke M]

You might want to one or both of:

[pre]

ThisWorkbook.Saved = True 'Flags the workbook as having no changes.
'Doesn't actually save the workbook

Application.DisplayAlerts = False 'Turn off all warning messages
'Make sure you turn this back on after you finish the step you suspect will
'generate an error message

eg.
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

[/pre]