HelloTim


Will this do it seems to work when I run it

Sub CELLNUMBERS()

Application.ScreenUpdating = False

Dim myrange As Range
Dim mystring As String

Range("A1:O1").Select

Set myrange = Selection
For Each Cell In myrange
mystring = mystring & Cell.Value
Next
Range("A6").Select
Application.ScreenUpdating = True

With ActiveCell
.Value = mystring
.NumberFormat = "0"
End With

End Sub





















"Tim" wrote in message
...
Hello,

I need to create a single string based on 15 individual
cells. Each cell has a unique value that will come
together to form an account number. Is there a simple or
efficient way to do this. The range "A1:O1" should look
like 123456789012345.

Thanks


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004