Inputbox Type 8 Show How To Get The Selected Range Address

InputBox Type 8 - show how to get the selected range address

'==================================================================================================
' ## InputBox Example 4: (Type 8) - Inputbox to show how to get the selected range address
'==================================================================================================
Sub InputBoxGetAddress()
    '// Vars
    Dim strRng As String
    Dim rngCell As Range
    Dim rngSelection As Range

    '// Pass the selected cells address to a string
    strRng = ActiveWindow.RangeSelection.Address

    '// Briefly turn off error checking
    On Error Resume Next

    '// Pick the range using an inputbox
    '   the initial range is the currently selected cells
    Set rngSelection = Application.InputBox("Initial range is currently selected cells", _
                        "Select Range", strRng, Type:=8)

    '// Test if clicked cancel
    If rngSelection Is Nothing Then Exit Sub

    '// Turn on error checking
    On Error GoTo 0

    '// Show the selected address:
    '   Line 1: Cell Absolute address
    '   Line 2: Cell Relative address
    '   Line 3: Sheet Name and Cell Address
    '   Line 4: Workbook, Sheet Name and Cell Address
    MsgBox rngSelection.Address & vbNewLine & vbNewLine & _
        rngSelection.Address(0, 0) & vbNewLine & vbNewLine & _
        rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0) & _
            vbNewLine & vbNewLine & _
        "[" & rngSelection.Parent.Parent.Name & "]" & rngSelection.Parent.Name & _
            "!" & rngSelection.Address(0, 0)
End Sub