You could set up an envelope tab that gets the info from a vlookup or from a
list. I assume you want to print many from a list. You will have to play
with it so that it comes out on the envelope as desired.
Something like this
Sub FormEnvelope()
For Each c In Range("B5:B46")
If UCase(c.Offset(0, 10)) = "X" Then
[k1] = Trim(Right(c, Len(c) - Application.Find(",", c)) _
& " " & Left(c, Application.Find(",", c) - 1))
[k2] = Trim(c.Offset(0, 1))
[k3] = c.Offset(0, 2) & ", " & c.Offset(0, 3) & " " & c.Offset(0, 4)
[k4] = c.Offset(0, 11)
sheets("envelope").PrintPreview 'chg to printOUT to print
End If
Next
End Sub
--
Don Guillett
SalesAid Software
"megan" wrote in message
...