On Error Resume Next
Set rng = Application.InputBox(Msg1, Title1, Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then

'process it
End If


--
__________________________________
HTH

Bob

"Rafi" wrote in message
...
Hi,

I am using the inputbox to get a user to pick a cell on a worksheet and am
having trouble trapping a Cancel event or when the user clicks OK without
making a selection

Set rng = Application.InputBox(Msg1, Title1, Type:=8)

Please note that rng is dimmed as an object