User Select Range Through Input Box

Hi all,

I'm trying to get a users' selected range to display in a cell as stored text.

therefore, If a user selects A1:D7. The text in Cells("G", 10) will be:"A1:D7"

w/o the quotes.

I've attached an example workbook.
Here's the formula thus far:

Sub SelectRangeBox()
Dim rnBody As Range
Dim vaMsg As Variant
Do
vaMsg = Application.InputBox( _
Prompt:="Please enter the message-text:", _
Title:="Message", _
Type:=2)
Loop While vaMsg = ""

On Error Resume Next
Set rnBody = Application.InputBox("Please enter the range:", _
, Selection.Address, , , , 8)
If rnBody Is Nothing Then Exit Sub
On Error GoTo 0
With Sheets("Sheet1")
Cells("G", 10).Value = rnBody.Text
End With
End Sub

Actuall maybe my thread should be Titled. user selected cell range displayed in input box save to cell as a text value.
Thanks,

BDB