Something like this should at least get you started:

Sub ConcatCellContents()

Dim Sh As Excel.Worksheet
Dim TheString As String

For Each Sh In Excel.Worksheets
If Sh.Name < "Display" Then
Sh.Activate
TheString = TheString + ActiveWindow.Selection
End If
Next

Range("Display!D12").Formula = TheString

End Sub
--- Automerged consecutive post before response ---
Wow, we must have posted just about the same time on this! I guess
either solution will work, as there are dozens of ways to do things like
this.


--
gmorris
------------------------------------------------------------------------
gmorris's Profile: http://www.thecodecage.com/forumz/member.php?userid=245
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=87724