Hi all,

With the help of the internet and this forum I've "constructed" a macro that moves existing dimensions, center lines, balloons and annotations to the right layers.

This works fine except for one thing;

The piece of code that moves all notes on  the drawing to the "notes" layer, also moves all title block text to that layer.

I understand that it does that, because the title block texts are also notes, but is there a way to to set them to a different layer?

This is what i use to change the layer;

Set swView = swDoc.GetFirstView
While Not (swView Is Nothing)
    Set swAnnot = swView.GetFirstAnnotation3
    While Not swAnnot Is Nothing
        If swAnnot.GetType = swDisplayDimension Then
            swAnnot.Layer = "Dimensions"
          
        ElseIf swAnnot.GetType = swNote Then
            swAnnot.Layer = "notes"
           
        End If
        Set swAnnot = swAnnot.GetNext3
    Wend
    Set swView = swView.GetNextView
Wend

Any help is appreciated