Emailing User Defined Ranges

You have 3 With and only 2 End With

You need to change [\CODE] to [/CODE] to format your code correctly btw.

I have amended it and it is still erroring on the same Compile error

well, i made three small changes to the code and it works like you wanted. got rid of the customerMail and substituted my email address. then i added the third end with statement. and i commented out the .rg.Parent.Activate statement. so here it is.

Please Login or Register  to view this content.

Its still erroring and i have removed all of the other macros from the work book to ensure there isnt anything causing it to error. I think i am at a loss.

so im attaching a simple spreadsheet with data in it (different from yours). Check to see that it works (don't forget to edit the macro and change the email address). if it works on your machine then the issue is with your initial sheet.

let me know how you progress.

email ranges.png

this is the image of the range that i am using to email (and it works like you want it to)