Macro to create an email from sheets BR1 to Last sheet

[Howardc1001]

I need someone to amend my VBA Code to generate an email for sheets Br1 to last sheet. My sample data has only 3 sheets to be generated in Outlook , but by live data has 20 sheets


The Subject is named "subjectText1" on sheet "Email Branches" and Body is named "Bodytext1" I need a seperate email for each sheet from "Br1" to the last sheet. The email addresses are in AA1 to AA5 on each of these sheets. The email must only be created for each sheet where the average value in Col E2:E3 does exceed 60


I get Method or data member not found


It would be appreciated if someone could kindly check and amend my code

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[Howardc1001]

I have finally managed to amend the code and it it working 100%

Please Login or Register  to view this content.