Private Sub test_ApplicationInputBoxType0()
    Dim rRange As Range
    Dim Addr: Addr = Application.InputBox("Укажите ячейку", "Выбор ячейки", "=" & Selection.Address, Type:=0)
    'If TypeName(Addr) = "Boolean" Then Exit Sub    ' если нажали "Отмена", то Addr = False
    If VarType(Addr) = vbBoolean Then Exit Sub    ' если нажали "Отмена", то Addr = False
    Set rRange = Range(Trim(Mid(Application.ConvertFormula(Addr, xlR1C1, xlA1, True), 2)))
    MsgBox rRange.AddressLocal(0, 0, 1, 1)
End Sub

Private Sub test_ApplicationInputBoxType8()
' http://www.planetaexcel.ru/forum.php?thread_id=14184
' http://www.planetaexcel.ru/forum.php?thread_id=15119 — "Проблемы с Application.InputBox (....., Type:=8) - не всякие значения хочет принимать"
    Dim rRange As Range
    On Error GoTo Error_Exit
    Application.DisplayAlerts = False
    Set rRange = Application.InputBox("Укажите ячейку", "Выбор ячейки", Type:=8)
    Application.DisplayAlerts = True
    On Error GoTo 0
    MsgBox rRange.AddressLocal(0, 0, 1, 1)
Error_Exit:    If Err Then MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
End Sub