Looks like you have the email wrong. It is remove

Make sure the email in the code matches that on the slides.

Since it's a fairly unusual email you could also use:

If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*remove*") Then osld.Shapes(L).Delete

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials