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...........

You have asked this same question many times in the past week and many
people have replied, yet you still have the same code. You reply only with
"still can't get it to work", instead of something useful like the actual
error or results that occurred and why they were not the desired outcome. So
people cannot be bothered to come back and ask you again what the problem
is.
May be you need to take some of the advise given, or ask you question in
more clear way instead reposting every few hours.

NickHK

"Little Penny" wrote in message
...
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...........