Hi
you don't have a print routine by now. dow you mean:
Dim varCount As String
VarCount = 5
Dim I As Integer
For I = 1 To 10 Step 1
Range("B1").FormulaR1C1 = "=Sheet1!R[" & VarCount & "]C"
Range("C1").FormulaR1C1 "=Sheet1!R[" & VarCount & "]C"
VarCount = Varcount + 1
activesheet.printout
Next I
End Sub



"frankeps" wrote:


Dim varCount As String
VarCount = 5
Dim I As Integer
For I = 1 To 10 Step 1
Range("B1").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[VarCount]C"
Range("C1").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[VarCOunt]C"
VarCount = Varcount + 1
Range("D1").Select
Next I
End Sub

Well I hope that for the pro's here this is clear and know what the
answer is, well just to explain, in sheet Sheet1 starting on collum B1
down there are names which i want to "put" in another sheet at cell B1
and then print this page, then the B2 at sheet1, then B3, so to make a
long story short, the vat Varcount must be a number value, if i put 1
at where VarCount is the macro will work but print the value of
Sheet1!R[1] ten times :)

So the outcome must be that it's Sheet1!R[1], Sheet1!R[2], Sheet1!R[3]
ect.

Hope somebody here has an answer.

Thanks.


--
frankeps
------------------------------------------------------------------------
frankeps's Profile: http://www.excelforum.com/member.php...o&userid=15710
View this thread: http://www.excelforum.com/showthread...hreadid=272381