Try something like

Dim R As Range
On Error Resume Next
Set R = Application.InputBox(prompt:="hello", Type:=8)
If R Is Nothing Then
Debug.Print "cancelled"
Else
Debug.Print R.Address
End If

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Tue, 10 Feb 2009 10:15:02 -0800, Rafi
wrote:

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