Macro for deleting slides in Powerpoint from number 60 to 246

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

Maybe try this method?

Code:

---

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

---