PowerPoint vba - Print Odd or Even

Sometimes you need to print only the odd (or only the even) slides.

You can of course do this manually by typing in a custom range: 1,3,5,7,9...

or by selecting the slides you need and choosing print selection.

This is OK if you have a few slides but will get tedious if you have hunreds, This code will do it for you!

Sub Odd_EvenPrint()
Dim Odd_Even As Long
Dim L As Long
If ActivePresentation.Slides.Count < 2 Then Exit Sub 'Only 1 slide!!
Odd_Even = InputBox("1 for odd, 2 for even")
Select Case Odd_Even
Case Is = 1, 2
For L = Odd_Even To ActivePresentation.Slides.Count Step 2
With ActivePresentation.PrintOptions
.Ranges.ClearAll
.Ranges.Add L, L
.RangeType = ppPrintSlideRange
.OutputType = ppPrintOutputSlides
End With
Next
ActivePresentation.PrintOut
End Select
End Sub

Don't know how to use this code SEE HERE