I need a macro or procedure of a sort to print envelopes for family news-letter

"tiborp" wrote in message
...
I need a macro or procedure of a sort to print envelopes for family
news-letter


mail merge and this is a WORD question, not Excel........don't tell me you
are writing a NEWSLETTER using Excel......

Why not? I do it all the time. Don't need no "stinking word"

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Gordon" wrote in message
...
"tiborp" wrote in message
...
I need a macro or procedure of a sort to print envelopes for family
news-letter


mail merge and this is a WORD question, not Excel........don't tell me you
are writing a NEWSLETTER using Excel......

Here is one I designed for a POA a long time ago.

Sub FormLetter()
Application.ScreenUpdating = False
For Each c In Sheets("Addresses").Range("b5:b45")
If UCase(c.Offset(0, 9)) = "X" Then

x = InStr(c, ",")
[EnvName] = Trim(Right(c, Len(c) - x) & " " & Left(c, x - 1))
[EnvStreet] = Trim(c.Offset(0, 1))
[envCity] = c.Offset(0, 2) & ", " & c.Offset(0, 3) & " " & c.Offset(0, 4)
[himher] = Trim(Right(c, Len(c) - x))

[numtrees] = c.Offset(0, 10)
If [WhichLetter] = "Trees" Then
[amountdue] = c.Offset(0, 19)
Else
[amountdue] = c.Offset(0, 20)
End If

Ltr = [WhichLetter]
Sheets(Ltr).Range("f12") = [usedate]
If Range("Preview") Then
Sheets(Ltr).PrintPreview
Else
Sheets(Ltr).PrintOut
End If
End If
Next
Application.ScreenUpdating = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tiborp" wrote in message
...
I need a macro or procedure of a sort to print envelopes for family
news-letter

"Don Guillett" wrote in message
...
Why not? I do it all the time. Don't need no "stinking word"


Presumably you use PowerPoint to send emails?

Noooooooooooo

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Gordon" wrote in message
...
"Don Guillett" wrote in message
...
Why not? I do it all the time. Don't need no "stinking word"


Presumably you use PowerPoint to send emails?