From an Excel worksheet with a list of names and address, phone # and
emailaddresses, How can I just highlight the Name & Address and print a
single envelope??
dot cav

I have a sheet set up to work on MY laser printer to print a # 10 envelope.
right click the sheet with the namesview codeinsert thismodify to suit. I
then print from the envelope tab (could be automatic)

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

--
Don Guillett
SalesAid Software

"dotcav" wrote in message
...
From an Excel worksheet with a list of names and address, phone # and
emailaddresses, How can I just highlight the Name & Address and print a
single envelope??
dot cav