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 = Nothing
End Sub