When I'm braver and have more time to practive this (when do we ever NOT have
deadlines?), I will definitely try this. I actually have to copy & paste the
string of numbers into another software application, so whether it stays in
Excel or gets converted to a Word or txt file doesn't matter. I've never had
to combine so many numbers at once, so I was at a loss. Thanks for the info.

"Bob Phillips" wrote:

It is highly unlikely thet the data in 3000 cells will fitin one, but here
is the general principle

Sub Concat()Dim tgtrng As Range
Dim cell As Range
Dim tmp As String

For Each cell In Selection
If Not cell.Value = "" Then tmp = tmp & cell.Value & ","
Next cell
If tmp < "" Then range("A1").Value = Left(tmp, Len(tmp) - 1)

End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Cassie" wrote in message
...
I need to combine about 3000 lines of numbers into a single cell, separated
by a ";". Is there a quick way to do this without having to type each of
the
3000 cells into the formula? Thanks for any help.