need code to insert cell value
 

I would like some help to insert a cell value into the
code attached below. I need the value from Sheet1 cell
C24 after the word Allshort. I need it in parenthesis.

ActiveWorkbook.SendMail Recipients:=MyArr, _
Subject:="PET AllShort and Missort Report" &
format$(Date, " mm-dd-yyyy")

Thanks, Steve

need code to insert cell value
 

Try this:

ActiveWorkbook.SendMail Recipients:=MyArr, _
Subject:="PET AllShort (" & ActiveWorkbook.Sheets(1).Range("C24") & ") and
Missort Report" & _
format$(Date, " mm-dd-yyyy")


"Steve" wrote in message
...
I would like some help to insert a cell value into the
code attached below. I need the value from Sheet1 cell
C24 after the word Allshort. I need it in parenthesis.

ActiveWorkbook.SendMail Recipients:=MyArr, _
Subject:="PET AllShort and Missort Report" &
format$(Date, " mm-dd-yyyy")

Thanks, Steve