Bob Phillips wrote:
Suggestion

Change

.SendTo = ", ")

to

Dim aryAddys()

aryAddys = Range("A1:A100")
.SendTo = aryAddys

may not work as it is a 2d array, but I cannot test it.


aryAddys = Application.Transpose(Range("A1:A100")) will produce a 1-D array

Alan Beban