Quote:
Originally Posted by JohnWilson
Looks like you have the email wrong. It is pourshanazari@med.mui.ac.ir
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 |
Ahhh yes he used adifferent email at first slide so I though other slides are same too!
now I used your first code with main spam Email and they all removed!
thank u so much you are genius in coding!