Can't quite tell what's going on here but, assuming your "rangelist" is
defined, why not just something like:

sub printem()
for each c in range("rangelist")
Range("TestName").Value = c
Sheet1.PrintOut
next c
end sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Brad" wrote in message
...

What I'm trying to change a heading on sheet 1 and print the page- the
"variable" heading information is in column A on sheet 3 and the first
time
that is comes to a blank - end the loop. If print fine the first time and
then it gives me a Run-time error '13" on the Loop Until line

Am I even close with the logic found below?

Sub print_many()
Dim iRow As Long
iRow = 0
With Range("NameList")
Do
Range("TestName").Value = Sheet3.Range("a" & iRow + 1).Value
Sheet1.PrintOut
iRow = iRow + 1
Loop Until .Offset(iRow, 0).Value = ""
End With

End Sub