Sub Test() Dim l As Layer For Each l In ActivePage.Layers l.CreateArtisticText 0, 0, "Layer:" & l.Index, , , 10 Next lEnd Sub