Try:

Sub test()

Dim r As Range
Dim str As String

For Each r In Range("h2:h8")
str = str & r.Value & Chr(13)
Next

MsgBox str
End Sub



--
kkkni
-----------------------------------------------------------------------
kkknie's Profile: http://www.excelforum.com/member.php...nfo&userid=754
View this thread: http://www.excelforum.com/showthread.php?threadid=26550