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

Nothing. Works fine here -except for the lack of "Cancel" click trapping
(which returns "Object required" btw). Trap that one like this

Sub GetAdres()
Dim Last As Range, mes As String
mes = "Select any cell in one of the first 10 rows"
On Error Resume Next
Set Last = Application.InputBox(Prompt:=mes, Type:=8)
If Last Is Nothing Then Exit Sub
MsgBox Last.Address
End Sub

HTH. Best wishes Harald


"Herman" skrev i melding
m...
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