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.