Public Sub CloseAllWindows()
    Dim d As Document
    For Each d In Application.Documents
        d.Dirty = False
        d.Close
    Next d
End Sub