you can use (all work about the same in a msgbox)

chr(10)
chr(13)
vbCr
vbLf
vbCrLf
vbNewline

Sure the space isn't included in the text of the cell.

--
Regards,
Tom Ogilvy


"brownti via OfficeKB.com" wrote:

Below is a section of my code that works for the purpose i would like except
for one thing. I get an extra space at the end of each myCell.Value. It
seems to be everytime i use a vbNewLine it adds an extra space and then goes
to the next line. Is there a different funtion i could use?


myMsg = vbNewLine & vbNewLine & "Labor Rate: " & Range("baselaborrate") &
vbNewLine & vbNewLine
For Each myCell In myRng.Cells
If myCell.EntireRow.Hidden = True Then
'do nothing
Else
myMsg = myMsg & myCell.Offset(0, -2).Value & " Millwork: " & myCell.
Value & vbNewLine
End If
Next myCell
myMsg = myMsg & vbNewLine

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200706/1