You can use this

Sub PrintMacro2()
Dim cell As Range
For Each cell In Sheets("Sheet2").Range("A2:A" & Rows.Count) _
.SpecialCells(xlCellTypeConstants)
Worksheets("Sheet1").Range("C12").Value = cell.Value
ActiveSheet.PrintPreview
Next cell
End Sub




--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message ups.com...
Thanks, this works like a charm, now I need to find find a way to do it
until it hits a blank cell; I think that will be a while loop, or maybe
an if clause.
Thanks