Sub Test() Dim intCounter As Integer For intCounter = 1 To 5 ActiveDocument.Views.AddActiveView "Test" & intCounter ActiveDocument.ActiveWindow.ActiveView.Zoom = (intCounter * 25) Next intCounterEnd Sub