Hi! Try this



Function ConcVertical(rng As Range, joinStr As String) As String
ConcVertical = _
Join(Evaluate("transpose(" & rng.Address(, , , True) & ")"), joinStr) &
"."
End Function

Put in B2
=concvertical(A1:a1350)



"spenlc" wrote:

I am attempting to take a spreadshhet of email address a1-a1350 and make them
one string of addresses in the same cell to send out a mass email. Is there a
formula that I can enter to do this all at once or am I going to have to do
them one at a time