CustomLayout.Duplicate (PowerPoint)

Creates a duplicate of the specified custom layout, adds the new custom layout to the CustomLayouts collection immediately after the original custom layout, and returns a CustomLayout object that represents the duplicate layout.

Dim cltDuplicate As CustomLayout
Set cltDuplicate = ActivePresentation.SlideMaster.CustomLayouts(1).Duplicate()