Sub Test() Dim actvw As ActiveView Set actvw = ActiveWindow.ActiveView actvw.ToFitAllObjects Set actvw = NothingEnd Sub