Hello,
What is wrong with this very simple code ?

Sub GetAdres()
Dim Last As Range, mes As String
mes = "Select any cell in one of the first 10 rows"
Set Last = Application.InputBox(Prompt:=mes, Type:=8)
MsgBox Last.Address
End Sub

The sub stops on the Set Last.. line after selecting a valid range
and clicking the OK button. Error message = "Error 424 - Object
Required".
I know about error trapping but I don't see any way to trap the error
and still get the required range.
Funny thing is that I used similar code in other subs where it works
fine.
Thanks for any help.
Herman