Hi everybody,
when I use Inputbox method with Type : = 8 (Set MyObject = Input....) and I
click on Cancel button, I will get an error.
Is there any way to avoid this without On Error Goto Label ?

Thanks for answer.

MiRa

MiRa,

Try something like the following:

Dim Rng As Range
On Error Resume Next
Set Rng = Application.InputBox("select", Type:=8)
On Error GoTo 0
If Rng Is Nothing Then
MsgBox "You clicked Cancel"
Else
MsgBox "You selected: " & Rng.Address
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"MiRa" wrote in message
...
Hi everybody,
when I use Inputbox method with Type : = 8 (Set MyObject = Input....) and
I
click on Cancel button, I will get an error.
Is there any way to avoid this without On Error Goto Label ?

Thanks for answer.

MiRa

Mira,

no, you'll have to prevent the error when the inputbox is cancelled.


Sub inputtest()
Dim rngVariable As Range
On Error Resume Next
Set rngVariable = Application.InputBox(prompt:="Range?", Type:=8)
On Error GoTo 0

If rngVariable Is Nothing Then
'user cancelled
Else
MsgBox rngVariable.Address
End If

End Sub

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"MiRa" wrote:

Hi everybody,
when I use Inputbox method with Type : = 8 (Set MyObject = Input....)
and I click on Cancel button, I will get an error.
Is there any way to avoid this without On Error Goto Label ?

Thanks for answer.

MiRa