BINGO It works. Thank you, Thank you, Thank you.

I can now use this as a Sub of other massive lists that need to be printed
out individually.

Thanks again

Julian

"JulianB" wrote:

Thanks, I am a typo Champ. I'll let you know

Julian

"JulianB" wrote:

Dave I copied and pasted but the error message says Expected: List Seproator
or )
with the "A" highlighted. See below.

Sub PrintReports9A()
Dim myCell As Range
Dim myrng As Range

With Worksheets("balances04")
Set myrng = .Range("A9,.Cells(.Rows.Count,"A").End(xlup)) <Error is here
End With


For Each myCell In myrng.Cell
With Worksheets("STATEMENT")
.Range("C11").Value = myCell.Value
.Range("D24").Value = myCell(1, 2).Value
.Range("J11").Value = myCell(1, 3).Value
.Range("H25").Value = myCell(1, 6).Value
.Range("J32").Value = myCell(1, 13).Value
.Range("J34").Value = myCell(1, 14).Value
.PrintOut
End With
Next myCell

End Sub

Sorry if i blew it

Julian


"JulianB" wrote:

Thanks I'll try to copy and paste your original Sub.

I'll let you know what happens. By the way, what are you doing up this early.

Julian

"Dave Peterson" wrote:

Either I messed up or you messed up with some typos!

With Worksheets("balances04")
Set myrng = .Range("a9", .Cells(.Rows.Count, "A").End(xlUp))
End With

Sometimes it's better to copy and paste from the newsgroup post than to retype
the code.

JulianB wrote:

Hi!

Thanks for you help. I am still getting a "syntax error" with your
corretions. Can you tell me what this means in plain english. The computer
thinks i'm a pro while i'm only a rookie.

Sub PrintReports9A()
Dim myCell As Range
Dim myrng As Range

With Worksheets("balances04")
set myrng = .range("a9,.cells(.rows.count,"A".end(xlup)) <the error is in
this line
End With


For Each myCell In myrng.Cell
With Worksheets("STATEMENT")
.Range("C11").Value = myCell.Value
.Range("D24").Value = myCell(1, 2).Value
.Range("J11").Value = myCell(1, 3).Value
.Range("H25").Value = myCell(1, 6).Value
.Range("J32").Value = myCell(1, 13).Value
.Range("J34").Value = myCell(1, 14).Value
.PrintOut
End With
Next myCell

End Sub

Thank you

Julian

--

Dave Peterson