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