I'm trying to write a macro to remove word art

[Dspace]

I'm trying to write a macro that displays a "price estimate only" & then the opposite that removes the "price estimate only". The first one is working fine but I can't get the 2nd one to work. I'm sure its a simple mistake but I'm banging my head against the wall. Your help is appreciated. Thanks. there are 2 other logos on the worksheet so I can't select all shapes & delete. Just the word art.

Sub WaterMark()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddTextEffect(msoTextEffect, "Price Estimate Only", "Arial", 100, False, False, 0, 0)
With shp
.Fill.Transparency = 1
.Line.Transparency = 1
End With
End Sub

Sub RemoveWaterMark()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoTextEffect Then
shp.Delete

End If
Next shp

End Sub

 

[Dspace]

I solved it! Easy fix. I named it

 

[Dspace]

I solved it! Easy fix. I named it

.Name = "MyWatermark" & then simply fixed it with "ActiveSheet.Shapes("MyWatermark").Delete"

 

[Vogateer]

You would have to use shp.Type = 1, but if you want to identify it, use something like this:

Sub WaterMark()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddTextEffect(msoTextEffect, "Price Estimate Only", "Arial", 100, False, False, 0, 0)
With shp
    .Fill.Transparency = 1
    .Line.Transparency = 1
    .Title = "Price Estimate Only"
End With
End Sub

Sub RemoveWaterMark()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    If shp.Title = "Price Estimate Only" Then
    shp.Delete

    End If
Next shp

 

[rlv01]

Another variation

Sub RemoveWaterMark()
    Dim shp As Shape
    
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoAutoShape Then
            If shp.AutoShapeType = msoShapeRectangle Then
                If shp.TextFrame2.TextRange.Text = "Price Estimate Only" Then
                    shp.Delete
                End If
            End If
        End If
    Next shp
End Sub