How to print odd or even page number in excel

User below macro:

Sub PrintOddEven()
    Dim TotalPages As Long
    Dim StartPage As Long
    Dim Page As Integer

    StartPage = InputBox("Enter starting page number")

    If StartPage > 0 Then
        For Page = StartPage To 400 Step 2
            ActiveSheet.PrintOut From:=Page, To:=Page, _
              Copies:=1
        Next
    End If
End Sub


for printing 301,303,305,.......399 alternative. Please enter starting page number=301
Note: for writing macro in excel, press alt+F11 and then click on sheet1 left side panel.