Sub Test() Dim Vw As View Dim VwCollection As Views Dim Pg As Page Dim s As String Set VwCollection = ActiveDocument.Views Set Vw = VwCollection.AddActiveView("TestView") Set Pg = Vw.Page s = s & Pg.Name & vbCr MsgBox "The page name of the chosen view is: " & vbCr & s Set Vw = Nothing Set VwCollection = NothingEnd Sub