MACRO :CANCEL BUTTON

[verluc]

I have the following macro:

Dim olApp As Object, olMail As Object
Dim rngeAddresses As Range, rngeCell As Range
Set olApp = CreateObject("Outlook.Application")
intResponse = MsgBox(prompt:=".....", _
Buttons:=vbQuestion + vbYesNoCancel
On Error Resume Next
Select Case intResponse
Case vbYes
Set rngeAddresses = range("...")
Case vbNo
Set rngeAddresses = Application.InputBox(prompt:="........"
Case vbCancel
Cancel = True
End Select
On Error GoTo 0
For Each rngeCell In rngeAddresses.Cells
Set olMail = olApp.CreateItem
olMail.To = rngeCell.Value
Next

Why the button "Cancel" doesn't work,because I become an error?
Thanks for help.

[Mark O'Brien]

Where is this code situated? I'm guessing that it's in a worksheet event, based upon:

Cancel = True 

I would suggest using "Exit Sub" instead of Cancel = True, assuming that all you want to do is to stop the sub routine should the user choose to "Cancel".

HTH

[verluc]

On 2002-04-29 12:24, Mark O'Brien wrote:
Where is this code situated? I'm guessing that it's in a worksheet event, based upon:

Cancel = True 

I would suggest using "Exit Sub" instead of Cancel = True, assuming that all you want to do is to stop the sub routine should the user choose to "Cancel".

HTH

Hi Mark, great it works now.
Many thanks for your time.