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