Hi All,

I have a large data-base of names and addresses, it's about 5000 rows strong
and spreads over to column M.
I would like to be able to pick one/several row number(s) and for excel to
produce a mailing label format. Is this possible? I don't want to go through
the hassle of mail merging, so is there another way?

Here is a double_click worksheet event that I have used in the past. It
fills in the addresses on a envelope for mailing. Perhaps the idea will
help.

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

"PH NEWS" wrote in message
...
Hi All,

I have a large data-base of names and addresses, it's about 5000 rows
strong
and spreads over to column M.
I would like to be able to pick one/several row number(s) and for excel to
produce a mailing label format. Is this possible? I don't want to go
through
the hassle of mail merging, so is there another way?

Thanks, but I'm a bit lost in all that. I'm not experience in VB and don't
understand how that works. Do I need to have certain headings?
"Don Guillett" wrote in message
...
Here is a double_click worksheet event that I have used in the past. It
fills in the addresses on a envelope for mailing. Perhaps the idea will
help.

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

"PH NEWS" wrote in message
...
Hi All,

I have a large data-base of names and addresses, it's about 5000 rows
strong
and spreads over to column M.
I would like to be able to pick one/several row number(s) and for excel
to
produce a mailing label format. Is this possible? I don't want to go
through
the hassle of mail merging, so is there another way?