Macro for deleting slides in Powerpoint from number 60 to 246

[penoxcz]

Hi is there a way to delete slides from slide number 60 to slide number 246? Thanks!

[Aussiebear]

Maybe try this method?


Sub DeleteSlides()
Dim i As Long
' Loop through slides backwards to avoid index issues
For i = 246 To 60 Step -1
ActivePresentation.Slides(i).Delete
Next i
End Sub