Below you will find two thing .First is my current code as is. Second
is my code with insert of what I would like it to do. This has turned
out to be a lot harder than I thought.




Sub doprint()
'
' doprint Macro
' Macro recorded 9/25/2003 by AvilaJ

Dim i As Integer
Dim oCell As Range


Jummber1 = InputBox("Start in Job Number?", " First Job to Print",
0)
Jummber2 = InputBox("Finish in Job Number?", " Last Job to Print",
0)

Range("I40").Select
ActiveCell.FormulaR1C1 = Jummber1
Range("I41").Select
ActiveCell.FormulaR1C1 = Jummber2

For Counter = Jummber1 To Jummber1
Range("L5").Select
ActiveCell.FormulaR1C1 = Counter
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=1, Collate _
:=True
Next Counter

End Sub






WHAT I WANT IT TO DO BELOW




Sub doprint()
'
' doprint Macro
' Macro recorded 9/25/2003 by AvilaJ

Dim i As Integer
Dim oCell As Range


Jummber1 = InputBox("Start in Job Number?", " First Job to Print",
0)
Jummber2 = InputBox("Finish in Job Number?", " Last Job to Print",
0)

Range("I40").Select
ActiveCell.FormulaR1C1 = Jummber1
Range("I41").Select
ActiveCell.FormulaR1C1 = Jummber2

For Counter = Jummber1 To Jummber2

(I would Like the code to maKE Sheet1 the active sheet}

Range("L5").Select
ActiveCell.FormulaR1C1 = Counter

(I want the code to Look at cell J74 and use that value for
the total pages to print)

(Make sheet 2 the active sheet and start printint)
(Example if J74 is 5 I want to print 5 sheets starting with
sheet 2 thru sheet 6)

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=1, Collate _ (Idon't know if I need this)
:=True
Next Counter

End Sub


Please Please Help...........