Sub EnabledEvents() Dim state As Boolean ActiveLayer.CreateEllipse2 0, 0, 5 'GlobalDocument_ShapeCreated event will be generated here. state = EventsEnabled 'Remember the flag state. EventsEnabled = False 'Disable events. ActiveLayer.CreateEllipse2 3, 3, 5 ' This event wil not be generated. EventsEnabled = state 'Restore event state.End Sub