Object required error

I have the following code to clear the contents of a cell based on user input. I want to exit the sub if the Cancel button is clicked but I get an Object Required error. Any help would be terrific. Thanks.

[VB]
Dim rInput As Range
Dim sAddress As String
Set rInput = Application.InputBox _
(Prompt:="Enter the Cell Address of the points you wish to delete ... e.g. C2:", _
Title:="Delete Points", Type:=8)

If rInput = "" Then
MsgBox ("You have not entered a Cell Address. Please try again.")
Exit Sub
End If

sAddress = rInput.Address
Range(sAddress).ClearContents
[/VB]

Re: Object required error

Thank you so much for your quick response. I changed rInput to a string and modified the last line but now I get an Object Required error on the Set rInput line.

Re: Object required error

Thank you again. I did remove "set" but now I get a 'Range of Object Global Failed" error. I tried putting an "On Error Resume Next" statement in my original code as below and now it seems to work properly.

[VB]
Dim rInput As Range
Dim sAddress As String
On Error Resume Next
Set rInput = Application.InputBox _
(prompt:="Enter the Cell Address of the points you wish to delete ... e.g. C2.", _
Title:="Delete Points", Type:=8)

If rInput = "" Then
MsgBox ("You have not entered a Cell Address. Please try again.")
Exit Sub
End If

sAddress = rInput.Address
Range(sAddress).ClearContents
[/VB]

Re: Object required error

Your advice is very much appreciated. I have learned a lot and continue to do so.