automatic Email

Hi daselman

I can't tell from your Code nor your explanation what you wish to send. However, if you make a simple change to you Code it runs

'Set filter range and filter column (column with e-mail addresses)
    Set FilterRange = Ash.Range("A1:E6" & Ash.Rows.Count) '<---------Change this line
    FieldNum = 2    'Filter column = B because the filter range start in column A

'Set filter range and filter column (column with e-mail addresses)
    Set FilterRange = Ash.Range("A1:E" & Ash.Rows.Count) '<---------To this (get rid of the 6)
    FieldNum = 2    'Filter column = B because the filter range start in column A

I read again your explanation...you wish to send Sheet Mailing to each Email Address in Sheet Mailing Column B?