ENVEOLPES FROM EXCEL

  • Thread starter Thread starter EXCEL
  • Start date Start date
E

EXCEL

iM TRYING TO COPY AND PASTE FROM EXCEL TO MICROSOFT WORD TO DO ENVELOPES,
WHEN I COPY AND PASTE TO ENVELOPES I GET ALL THE ADDRESSES THAT I HAVE PASTED
ON 1 ENVELOPE. EVEN IF I HIGHLITE THE ONE I WANT TO COPY FROM EXCEL IT PRINTS
ALL THE ADDRESS ON THE ENVELOPE
 
Please do NOT type in all CAPS. It is hard to read and considered to be very
rude netiquette everywhere.
Here is a macro I have in my sheet module to populate an envelope(trial and
error to fit printer) to print from an Excel sheet. I have a list of names
in columns

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
If ActiveCell.Offset(0, 2) <> "" Then
Title = ActiveCell.Offset(0, 2)
Else
Title = ""
End If
If ActiveCell.Offset(0, 1) <> "" Then
FirstName = ActiveCell.Offset(0, 1) & " "
Else
FirstName = ""
End If
LastName = ActiveCell
ADDRESSEE = Application.Proper(Title + FirstName + LastName)
[envelope!c6] = ADDRESSEE
[envelope!c7] = ActiveCell.Offset(0, 3)
[envelope!c8] = ActiveCell.Offset(0, 4)
[envelope!c9] = ActiveCell.Offset(0, 5)
Sheets("envelope").Select
End If
End Sub
 
Back
Top