Hi Jeff,

The following macro will put all the contents of Column A in an Array
called Recipients:

Sub StoreRecipients()

Dim i As Integer
Dim Recipients() As Variant
i = 1

Do Until Cells(i, 1) = ""
ReDim Recipients(i)
Recipients(i) = Cells(i, 1)
i = i + 1
Loop

End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/