Hi Cereldine,

You should also check if user selected valid range or didn't hit cancel
button:

Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox("Click Cell You wish to change",
Type:=8)
If Err < 0 Then
MsgBox "Not valid range or cancel"
End If

Regards,
Ivan