Sub Test() Dim Vw As View Dim VwCollection As Views Dim s As String Set VwCollection = ActiveDocument.Views If ActiveDocument.Views.Count = 0 Then VwCollection.AddActiveView "test" For Each Vw In VwCollection s = s & Vw.OriginY & vbCr Next Vw Else For Each Vw In VwCollection s = s & Vw.OriginY & vbCr Next Vw End If MsgBox "The vertical origin's of the saved views are: " & vbCr & s Set Vw = Nothing Set VwCollection = NothingEnd Sub