Printing Multiple Sheets

[Razzcul]

How do I get this macro to print more the on sheet For example sheets 1 to 5.

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

[Tom Ogilvy]

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

--
Regards,
Tom Ogilvy

"Razzcul" <[email protected]> wrote in
message news:[email protected]...
>
> How do I get this macro to print more the on sheet For example sheets 1
> to 5.
>
> 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
>
>
> --
> Razzcul
> ------------------------------------------------------------------------
> Razzcul's Profile:
> http://www.excelforum.com/member.php...o&userid=37365
> View this thread: http://www.excelforum.com/showthread...hreadid=573489
>