Code to pull data from another workbook into a msgbox!

Hi all,

I'm tryin to write a code to pull a small range of cell into a msgbox. I want to expand it so i can use the code to pull the data from a different workbook.

Here is the code:

Sub ShowRange()
Dim msg As String
Dim r As Integer, c As Integer

    For r = 3 To 13
        For c = 14 To 18
            msg = msg & Worksheets("Sheet 2").Cells(r, c).Text
            If c <> 18 Then msg = msg & vbTab
        Next c
        msg = msg & vbCrLf
    Next r

    MsgBox msg

End Sub

Can anyone give me a hand please.