Hi,

Try this

Sub pvans()
Dim TempString As String
Set sht = Sheets("Sheet1")
Set MyRange = sht.Range("A1:A1439")
For Each c In MyRange
TempString = TempString & " " & c.Value
Next
Range("B1") = Trim(TempString)
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"PVANS" wrote:

Good morning

I am really hoping someone can help me with this.

I have a worksheet with 1 column (A) and 1439 rows. I need to combine all
1439 of these cells into one, using the following format:
A1 & "" & A2 & "" etc.

Naturally, doing this manually would take several hours (and be extremely
vulnerable to mistakes.) Is there a method using VBA that I could do this?

Thanks for any ideas.

Paul