Forum software sometimes breaks lines where it's not intended
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 needFor i = mySlide.Shapes.count to 1 Step -1 If mySlide.Shapes(i).Type = msoPlaceHolder Then mySlide.Shapes(i).Delete Next i