Sub Test() Dim ps As PageSizes Dim d As Document Dim p As PageSize Set d = CreateDocument Set ps = d.PageSizes For Each p In ps If Not p.BuiltIn Then p.Delete End If Next pEnd Sub