---------------------Macro Code----------------------- Sub Odd_Even_Print() 'UpdatebyGeteSolutions20160901 Dim xTotalPages As Long Dim xStartPage As String Dim xPage As Integer, xYesorNo Application.ScreenUpdating = False xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel") If xStartPage = "" Then Exit Sub xTotalPages = ActiveSheet.PageSetup.Pages.Count xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel") If xYesorNo = vbYes Then For xPage = Int(xStartPage) To xTotalPages Step 2 ActiveSheet.PrintOut from:=xPage, To:=xPage Next Else Exit Sub End If Application.ScreenUpdating = True End Sub