ActiveWorkbook Close AND "No" to Clipboard information.

[whippler]

When I execute this macro in a file, there are 37 instances of this:

Application.ScreenUpdating = False

Workbooks.Open(FileName:= _
"C:WINNTProfileswhipplerDesktopZETIAEarlyViewsOBR Nation.xls"). _
RunAutoMacros Which:=xlAutoOpen
Range("A1:Q14").Select
Range("Q14").Activate
Selection.copy
ActiveWindow.ActivateNext
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
Range("A18:Q172").Select

Application.CutCopyMode = False
Selection.copy
ActiveWindow.ActivateNext
Range("A75").Select
ActiveSheet.Paste

ActiveWindow.ActivateNext
ActiveWorkbook.Close SaveChanges:=False

I get the "There is a lot of information....Clipboard....do you want to save it?....etc" when the macro executes the close active workbook with no changes.

Does anyone know the code to make this go away automatically when the workbook closes?

 

[oldham94l]

just move the code
Application.CutCopyMode = False

to just before you switch workbooks

 

[whippler]

thank you!