This isn't using the built in that you showed above, but does allow you to select a range of cells following an income prompt:
Sub RangeSelectionPrompt()
Dim rng As Range
Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
MsgBox "The cells selected were " & rng.Address
End Sub
This is based on the answer given in this MrExcel answer.
Here is how it looks in use: