Printing VBA

[TyeJae]

I have cell that I named "Quantity". There is a formula in that cell
that tells me the quantity of sheets that I need to print according to
some information that I enter. What I want to do is create a button
that will print the amount of sheets according to the number that is in
"Quantity". Is this possible?

Thanks in advance,
TyeJae

 

[Dave Peterson]

Maybe something like this will give you an idea:

Option Explicit
Sub testme()

Dim myQtyCell As Range
Dim iCtr As Long

Set myQtyCell = Worksheets("sheet1").Range("Quantity")

If IsNumeric(myQtyCell.Value) Then
If myQtyCell.Value > 0 Then
For iCtr = 1 To CLng(myQtyCell.Value)
Worksheets("sheet2").PrintOut preview:=True
Next iCtr
End If
End If
End Sub