This example locates a page in the root web and a subweb.
Note You must have the page that you specify in the procedure open to use this method. To run this program, you can create a page called Zinfandel.htm or substitute a page of your own choice. You must have a copy of the page in the root web and a copy of it in a subweb.
Private Sub LocatePages()
Dim myRootPage As PageWindow
Dim myWebPage As PageWindow
Set myRootPage = _
Application.LocatePage("Zinfandel.htm", fpPageViewNormal)
Set myWebPage = _
Webs(1).LocatePage("Zinfandel.htm", fpPageViewNormal)
End Sub