With Application.ActivePresentation .PageSetup.FirstSlideNumber = 1 MsgBox .Slides(2).SlideNumber .PageSetup.FirstSlideNumber = 10 MsgBox .Slides(2).SlideNumber End With