Message box to display range of cells. Solved, thanks

Hi,

I am using the following code to display a range of cells from a single column (A1:A10) in a message box, with each cell value on a seperate line.

Sub v128_Click()

MsgBox Join(Application.WorksheetFunction.Transpose(Range("Sheet2!A1:Sheet2!A10").Value), Chr$(10))

End Sub

My question is; how do I make it work so that it will display the value of cells from a row, ie A1:J1 ?

Thanks.