Hi,

I want to display all the values from range H2:H8 in a msgbox, with a
linefeed between the values. How to do this??

Best Regards,
A newbie

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

Try:

Dim cell As Range
Dim anyS
For Each cell In Range("H2:H8")
If anyS = "" Then
anyS = cell.Value
Else
anyS = anyS & Chr(13) & cell.Value
End If
Next
MsgBox anyS

Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Bmj" wrote in message
...
Hi,

I want to display all the values from range H2:H8 in a msgbox, with a
linefeed between the values. How to do this??

Best Regards,
A newbie

Remove the IF

Dim cell As Range
Dim anyS
anyS = Range("H2")
For Each cell In Range("H3:H8")
anyS = anyS & vbCrLf & cell.Value
Next
MsgBox anyS

:-)

--

HTH

RP

"Bob Flanagan" wrote in message
...
Try:

Dim cell As Range
Dim anyS
For Each cell In Range("H2:H8")
If anyS = "" Then
anyS = cell.Value
Else
anyS = anyS & Chr(13) & cell.Value
End If
Next
MsgBox anyS

Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Bmj" wrote in message
...
Hi,

I want to display all the values from range H2:H8 in a msgbox, with a
linefeed between the values. How to do this??

Best Regards,
A newbie

Perfecto!!! Thanx :-)))


"Bob Phillips" skrev i melding
...
Remove the IF

Dim cell As Range
Dim anyS
anyS = Range("H2")
For Each cell In Range("H3:H8")
anyS = anyS & vbCrLf & cell.Value
Next
MsgBox anyS

:-)

--

HTH

RP

"Bob Flanagan" wrote in message
...
Try:

Dim cell As Range
Dim anyS
For Each cell In Range("H2:H8")
If anyS = "" Then
anyS = cell.Value
Else
anyS = anyS & Chr(13) & cell.Value
End If
Next
MsgBox anyS

Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Bmj" wrote in message
...
Hi,

I want to display all the values from range H2:H8 in a msgbox, with a
linefeed between the values. How to do this??

Best Regards,
A newbie