Sub Test() Dim d As Document Dim v As View Dim s As Shape Set d = CreateDocument Set v = d.Views.AddActiveView("Saved View") Set s = d.ActiveLayer.CreateRectangle(0, 0, 2, 2) d.ActiveWindow.ActiveView.ToFitShape s d.Views.AddActiveView "Full Rectangle" MsgBox "Zoomed in at the rectangle. Press OK to restore view." v.ActivateEnd Sub