Populating email from outlook from column

Hi,

Can someone please help? I am looking to for a macro to populate email address in the 'To' section from a wookbook, but the email address depends on what is in column A. So if the number in column A is 1 then the email address the match in column B is transfered into the email header. Does this make sence and can it be done?

Regards,

Yes it can be done. Just have a switch in your macro as so:

Dim ToAddy as string

for Sweep = 1 to Range("A65536").End(xlup).Select 
     if cells(sweep, 1).value = 1 then 
            ToAddy = cells(sweep, 2).value
     else
            ToAddy = cells(sweep, 3).value ' or whereever the alternate email addy is.
     end if

     ActiveWorkbook.SendMail Recipients:=ToAddy, Subject:="whatever"
next Sweep