The workaround is changing an active data frame. Dim pMxDocument As IMxDocumentSet pMxDocument = ThisDocumentDim pMap As IMapSet pMap = pMxDocument.Maps.Item(1) 'Before add new MapSet pMxDocument.ActiveView = pMapSet pMap = pMxDocument.Maps.Item(0)Set pMxDocument.ActiveView = pMap