Code:
--------------------
.....
Email = ""
For Each cell In Sheets("Sheet1").Range("B1:B3")
Next cell
Email = WorksheetFunction.Substitute(Email, vbNewLine, "%0D%0A")
......
--------------------


WHen I run the code, I am not getting the email addresses put into the
'To' field in outlook. I dont know why its not picking up the email
addresses starting from B1 up to B3?? I am using a forloop
in the program so it runs three times


Many thnx
Peter


--
periro16
------------------------------------------------------------------------
periro16's Profile: http://www.excelforum.com/member.php...o&userid=26345
View this thread: http://www.excelforum.com/showthread...hreadid=396485