whats the problem here with match?
Dim slide As slide For Each slide In newPres.Slides If IsError(Application.Match(slide.slideIndex, slideGroups(i)(1), 0)) Then slide.Delete End If Next slide