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