Sub Test() Dim lr As Layer Set lr = ActivePage.CreateLayer("MyLayer") lr.CreateRectangle 0, 0, 2, 2End Sub