activating the cancel button on Input boxes
 

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

activating the cancel button on Input boxes
 

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
--
Regards,
Tom Ogilvy


"Shane" wrote in message
...
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

activating the cancel button on Input boxes
 

THANK YOU!!!


"Tom Ogilvy" wrote in message
...
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
--
Regards,
Tom Ogilvy


"Shane" wrote in message
...
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