Dim customClassesName(4), customClassesClass(4) customClassesName(0) = "(Apply Style)" customClassesName(1) = "Remove Style" customClassesName(2) = "Heading" customClassesName(3) = "Heading 2" customClassesName(4) = "Content" customClassesClass(0) = "-" customClassesClass(1) = "" customClassesClass(2) = ".contentheading" customClassesClass(3) = ".contentheading2" customClassesClass(4) = ".pcontent"