Printing odd and even pages

[Rebuild8]

I currently have a macro saved as a text file on my desktop that I copy and paste into Excel whenever I want to print odd or even pages. Is there a way I can set it up so that if I have any Excel file open (that is in my Documents folder) that I just use a shortcut (Ctrl+U, for example) and my macro will run? If so, would this slow my computer down considerably?

Also, is there an add-in for Excel 2007 that will enable Excel to print odd or even pages?

Thanks for any help!

 

[jim may]

Paste This into the Thisworkbook Code Module and Select Print Preview to test..

Sub PrintDoubleSided()
    Dim Totalpages As Long
    Dim pg As Long
    Dim oddoreven As Integer
    On Error GoTo enditt
    Totalpages = ExecuteExcel4Macro("Get.Document(50)")
    oddoreven = InputBox("Enter 1 for Odd, 2 for Even")
    For pg = oddoreven To Totalpages Step 2
        ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg
    Next pg
enditt:
End Sub