activating the cancel button on Input boxes

[Shane]

Hi all, I have a type 8 (range) input box. How can I make the procedure
exit when the user clicks on the cancel icon on the input box without
getting an error.

Many thanks
S

 

[Tom Ogilvy]

dim rng as Range
On Error Resume Next
set rng = Application.Inputbox("Prompt", Type:=8)
On Error goto 0
if rng is nothing then
msgbox "No range selected"
exit sub
End if

 

[Shane]

THANK YOU!!!

dim rng as Range
On Error Resume Next
set rng = Application.Inputbox("Prompt", Type:=8)
On Error goto 0
if rng is nothing then
msgbox "No range selected"
exit sub
End if