Increase Range if VBA without Error

[gassiusmax]

Hi All

I am using the code listed below to email out files automatically (each file is different for each recipient), I am trying to increase the range so that I can potentially send 25 emails on one click if/when the data needs to be distributed. but I can't find a way to ignore blanks without error

The only ranges that change are rngto (which should expand from B7 to B36) and rngAttach (which should expand from C7 to C36)

Any help would be great as I am completely clueless when it comes to code

Thanks

Danny

Please Login or Register  to view this content.

[HerryMarkowitz]

Hi, please attach your file...
You dont have to attach e-mail addresses, just put any dummy e-mail adresses...

[gassiusmax]

Hi thanks for the reply, the file has been attached

You will see it is relatively straightforward

Danny

[HerryMarkowitz]

Please try that...

Please Login or Register  to view this content.

[gassiusmax]

Where abouts would I put that in?

[HerryMarkowitz]

Change this;

Please Login or Register  to view this content.

with this;

Please Login or Register  to view this content.

[gassiusmax]

Ok, I also noticed that the code will only produce one email so I used the following

Please Login or Register  to view this content.

I found the mid section where you had the On Error so I changed the above to

Please Login or Register  to view this content.

But what I got was 2 correct emails with the correct data on them then a dozen or so blank emails, but I am aiming for just the correct ones to be populate an then nothing for empty details or errors

Thanks

For you help on this

[gassiusmax]

Solved half of it. thanks for your help