Attribute VB_Name = "DicingOff" Public Sub turnOffDicing() Dim pGeometryEnv As IGeometryEnvironment3 Set pGeometryEnv = New GeometryEnvironment pGeometryEnv.DicingEnabled = False End Sub