Sub exitFor() Dim Doc As Document For Each Doc In Documents If Doc.Name = "Document1" Then Exit For Doc.Close Next Doc End Sub