how can i add in a msgbox , a range of cells

I have 10 cells in every range
and i want all the cells to be shown in the msgbox
whenever i run the apropriate macro

Something like this maybe.
BTW Please use proper case in you subject line as you were kind enough to
use in the msg.

Sub message()
MsgBox [h1] & vbCr & [h3]
End Sub

"GUS" wrote in message
...
how can i add in a msgbox , a range of cells

I have 10 cells in every range
and i want all the cells to be shown in the msgbox
whenever i run the apropriate macro

Sub ShowCells()
msg = ""
for each cell in selection
msg = msg & cell.value & vbNewLine
Next
msgbox msg
End Sub

--
Regards,
Tom Ogilvy

"GUS" wrote in message
...
how can i add in a msgbox , a range of cells

I have 10 cells in every range
and i want all the cells to be shown in the msgbox
whenever i run the apropriate macro