Sub Test() Dim Vw As View Dim VwCollection As Views Dim intCounter As Integer Set VwCollection = ActiveDocument.Views For intCounter = 1 To 5 ActiveDocument.AddPages (1) Set Vw = VwCollection.AddActiveView("TestView" & intCounter) Vw.Zoom = CDbl(intCounter * 50) Vw.UseZoom = False Next intCounter Set Vw = Nothing Set VwCollection = NothingEnd Sub