Make it the Last Slide

[Geetesh Bajaj]

Someone I know wants to make the active slide the last slide (by moving it
to the last slide position) - can this be done with some code?

 

[Shyam Pillai]

Sub ShiftSlideSelectionToEnd()
Dim Wnd As Object
Set Wnd = ActiveWindow
With Wnd
If Val(Application.Version) > 9 Then
.Selection.SlideRange.MoveTo .Presentation.Slides.Count
Else
.Selection.SlideRange.Cut
.Presentation.Slides.Paste
End If
End With
End Sub