Macro for deleting slides in Powerpoint from number 60 to 246

[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