Quote Originally Posted by cwojtak View Post
Thanks for the quick response Paul! I like your approach on that. Unfortunately I am getting "compile error: next without for"
Forum software sometimes breaks lines where it's not intended


For i = mySlide.Shapes.count to 1 Step -1
    If mySlide.Shapes(i).Type = msoPlaceHolder Then   mySlide.Shapes(i).Delete
Next i
Edit -- go with John's since you have a lot more going on that just deleting some shapes on a slide and it will be easier to expand to meet your need