Macro to close Workbooks

---

Close all open workbooks

---

Sub CloseWorkBooks()
Dim x As Workbook
For Each x In Workbooks
x.Close SaveChanges:=True
Next x
End Sub

---

How to use codes shared here?