VBA excel prompt user to select range

mPromptForRange.bas

' Mutates the range passed in the paramter to a user selected value.
' Returns true if range is set, or false if not set (i.e. the user pressed cancel)
Function promptForRange(prompt As String, title As String, ByRef res As Range) As Boolean
    promptForRange = False
    On Error Resume Next
        Set res = Application.InputBox(prompt, title, , , , , , 8)
    On Error GoTo 0
    If Not res Is Nothing Then promptForRange = True
End Function