Run Time Error : Mail different file to each person in Range

[Mitiraj]

Experts,

I got VBA code for Mail a different file(s) to each person in a range from
'http://www.rondebruin.nl/win/winmail/Outlook/tips.htm

But getting Run time error 1004: No cells were found.

Please Login or Register  to view this content.

I change the sheet name and error throws in line For Each FileCell In rng.SpecialCells(xlCellTypeConstants)

Please help

[LJMetzger]

Hi Mitiraj,

You need a little bit of defensive programming. Your code works fine if there are valid email addresses, but will generate run time errors if there is nothing in a range. This is normal Excel behaviour. Try the following code wihich worked fine for me when I tested with one email address and one attachment.

Please Login or Register  to view this content.

Lewis