repetitive macros-solved

I have a work book with several (couple of hundred) buttons, which when clicked display the contents of a range of cells in a message box as shown below;

Sub v103_Click()
 
MsgBox Join(Application.Transpose(Application.Transpose(Range("Sheet1!A103:Sheet1!J103"))), Chr(10))
 
End Sub

Sub v104_Click()
 
MsgBox Join(Application.Transpose(Application.Transpose(Range("Sheet1!A104:Sheet1!J104"))), Chr(10))
 
End Sub

Sub v105_Click()
 
MsgBox Join(Application.Transpose(Application.Transpose(Range("Sheet1!A105:Sheet1!J105"))), Chr(10))
 
End Sub

Does anyone know of a more efficent way of coding this rather than copy,paste,edit,copy,paste,edit,copy,paste,edit........ad infinitum.