Sub Test() Dim Vw As View Dim VwCollection As Views Dim intCounter As Integer Set VwCollection = ActiveDocument.Views intCounter = 1 For Each Vw In VwCollection intCounter = intCounter + 1 Vw.Zoom = CDbl(intCounter * 50) Next Vw Set Vw = Nothing Set VwCollection = NothingEnd Sub