G
Guest
If you get this I am having trouble Debugging the first four lines.
Sub PrintReports9()
Dim myCell As Range
For Each myCell In Range("BALANCES04").Range("A9"), _
Worksheets("BALANCES04").Range("A65536").End(xlUp))
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
The Debug says Syntax Error. The only thing I changed was PrintReports from
2 to a 9 & The third line Range("2") to Range("9")
I don't know what to do.
Julian
Sub PrintReports9()
Dim myCell As Range
For Each myCell In Range("BALANCES04").Range("A9"), _
Worksheets("BALANCES04").Range("A65536").End(xlUp))
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
The Debug says Syntax Error. The only thing I changed was PrintReports from
2 to a 9 & The third line Range("2") to Range("9")
I don't know what to do.
Julian