Hi Marilyn

Use

Subj = cell.Offset(0, 1).Value


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Marilyn" wrote in message ...
Thanks Ron
subject information will be on column c



"Ron de Bruin" wrote:

Hi Marilyn

In which column is the subject information ?



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Marilyn" wrote in message ...
Hello I copied the code below. Now is it possible to change the line
Subj = "Your Annual Bonus"
Here is the thing, the body of the e mail will be the same for
everyone but the subject will be different. How do I do that? thanks

Sub SendEmail()
Dim cell As Range
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Bonus As String
Dim Msg As String
Dim HLink As String
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstant s)
If cell.Value Like "*@*" Then
'Get the data
Subj = "Your Annual Bonus"
Recipient = cell.Offset(0, -1).Value
EmailAddr = cell.Value
Bonus = Format(cell.Offset(0, 1).Value, "$0,000.")V