Input Box Not Working?

I got this macro from

InputBox Function (Visual Basic)

But it doesn't work, see boldface print.

Code:

Dim message, title, defaultValue As String
Dim myValue As Object
' Set prompt.
message = "Enter a value between 1 and 3"
' Set title.
title = "InputBox Demo"
defaultValue = "1" ' Set default value.

[code].....

I'm also trying to build a macro where I input the cell that I want selected and Excel selects that cell. This is what I came up with.

Code:
Dim s As String
Dim i As Range
s = inputbox("where?")
If s = i Then
Range("i").Select
Else: Exit Sub
End If