Sub Test() Dim Vw As View Dim intCounter As Integer For intCounter = ActiveDocument.Views.Count To 1 Step -1 Set Vw = ActiveDocument.Views(intCounter) Vw.Delete Next intCounter Set Vw = NothingEnd SubSub Test() Dim Vws As Views Set Vws = ActiveDocument.Views While Vws.Count <> 0 Vws(Vws.Count).Delete Wend Set Vws = NothingEnd Sub