Public Sub PageSizes_Add() Dim ps As PageSizes Dim d As Document Set d = CreateDocument Set ps = d.PageSizes ps.Add "Test Paper Size", 5.5, 9.5End Sub