Close workbook without warning popup if the flie is read only

[leopaulc]

I have a macro that automatically closes out of all open workbooks linked to pickup the data.
however, I want it to close without saving the read only documents. Right now it closes out of everything, but a pop up appears asking if the user wants to save the read only worksheet.

I don't want that pop-up to appear. I want it to just exit out and save all spreadsheets except the read only ones WITHOUT asking.

The macro also asking for link updation message. can this also avoid while running the Macro?

Here is the current code is pasted below.


Sub Update()
'
' Update Macro
'
' Keyboard Shortcut: Ctrl+u
'
Range("D8").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close
Range("D9").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close
Range("D10").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close
Range("D11").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close
Range("D12").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.Close
End Sub

[Admin]

Hi Leo,

Replace
ActiveWindow.Close

with


ActiveWindow.Close 0

[leopaulc]

Thankyou verymuch... Great

Exactly what I need