Sub RenameLayers() Dim layer As Element For Each layer In ActiveModelReference.Layers layer.Name = "MOD-" & layer.Name Next layer End Sub
Sub RenameLayers() Dim layer As Element For Each layer In ActiveModelReference.Layers layer.Name = "MOD-" & layer.Name Next layer End Sub