It should remove them all.
Are you sure you got the code correct (eg NOT taking out the asterisks's when you modified the email the email?)


Can you post the presentation somewhere? (maybe just a few of the slides)

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

File is big but plz first check my code to make sure that I didn't modify it in wrong way:

Sub Hello()
Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*email@aa.com*") Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub