Print single line from mailing list

Please forgive me for double posting. I realized after I had posted my question that it was in the wrong place.

I have a mailing list and I want to print one line at a time with a "To" in front of it.
Here's my macro, as far as I could go.

Sub Macro2()
'
' Macro2 Macro
'Macro recorded 10/1/2011 by Ronald
'

'

ActiveSheet.PageSetup.PrintArea = "$B$1:$D$18"
Range("B4").Select
For x = 1 To 2
ActiveCell.FormulaR1C1 = "TO:"
With Selection.Font
.Name = "Abadi MT Condensed Extra Bold"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
Next x
End Sub