Sub Test() Dim Vw As View Dim intCounter As Integer Set Vw = ActiveDocument.Views.AddActiveView("Test1") Vw.Activate Set Vw = NothingEnd Sub