daily pastebin goal
39%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Sub CloseAllWindows()
  2.     Dim d As Document
  3.     For Each d In Application.Documents
  4.         d.Dirty = False
  5.         d.Close
  6.     Next d
  7. End Sub
RAW Paste Data
Top