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