First I apologize for my earlier posts for not being able to clearly
state what I am trying to. I hope this is a little clearer and I can
get the help I'm humbly seeking. I tried to explain what I want the
code to do and at what point I want it to do it.

If any knows for sure that its not possible to what I'm asking. I
would appreciate that information as well


Thanks in advance


Sub doprint()
'
' doprint Macro


Dim i As Integer
Dim oCell As Range



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

Range("I40").Select
Range("I41").Select


For Counter = strjobnumber To endjobnumber
Sheets("Pieces").Activate
Range("L5").Value = Counter

***Here I would like to grabe the value of cell J80)***

Sheets("BatchSheet1").Activate

****Here I would like tp print the number of sheet equal to
the value of Cell J80 as one print job***
****Currently it will only print one sheet befor going to next
counter*******

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=1, Collate _
:=True
Next Counter
Sheets("Pieces").Activate
Range("$A$1").Select

End Sub

Corey
"Little Penny" wrote in message
...
First I apologize for my earlier posts for not being able to clearly
state what I am trying to. I hope this is a little clearer and I can
get the help I'm humbly seeking. I tried to explain what I want the
code to do and at what point I want it to do it.

If any knows for sure that its not possible to what I'm asking. I
would appreciate that information as well


Thanks in advance


Sub doprint()
'
' doprint Macro


Dim i As Integer
Dim oCell As Range



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

Range("I40").Select
Range("I41").Select


For Counter = strjobnumber To endjobnumber
Sheets("Pieces").Activate
Range("L5").Value = Counter

***Here I would like to grabe the value of cell J80)***

Sheets("BatchSheet1").Activate

****Here I would like tp print the number of sheet equal to
the value of Cell J80 as one print job***
****Currently it will only print one sheet befor going to next
counter*******

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("J80"), '
<===============
Copies:=1, Collate _
:=True
Next Counter
Sheets("Pieces").Activate
Range("$A$1").Select

End Sub