Sub Test() Dim lyr As Layer Dim n As Long n = 0 For Each lyr In ActivePage.Layers lyr.CreateArtisticText 0, n, lyr.Name n = n + 1 Next lyrEnd Sub