Using a cell value as the subject line

How do I use the cell value from cell a8 as the subject line in the following
code?
More specifically the words "QA Snapshot" and "the value of cell (a8)"

Private Sub Send1_Click()

Dim strdate As String

ActiveSheet.Copy
strdate = Format(Date, "mm-dd-yy")
ActiveSheet.Name = "QA Snapshot"
ActiveWorkbook.SaveAs "QA Snapshot" & " " & strdate & ".xls"
ActiveWorkbook.SendMail "", _
"QA Snapshot"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

ActiveWorkbook.SendMail "", _
"QA Snapshot" & Range("A8")

--

Vasant


"Qaspec" <[email protected]> wrote in message
news:[email protected]...
> How do I use the cell value from cell a8 as the subject line in the
following
> code?
> More specifically the words "QA Snapshot" and "the value of cell (a8)"
>
> Private Sub Send1_Click()
>
> Dim strdate As String
>
> ActiveSheet.Copy
> strdate = Format(Date, "mm-dd-yy")
> ActiveSheet.Name = "QA Snapshot"
> ActiveWorkbook.SaveAs "QA Snapshot" & " " & strdate & ".xls"
> ActiveWorkbook.SendMail "", _
> "QA Snapshot"
> ActiveWorkbook.ChangeFileAccess xlReadOnly
> Kill ActiveWorkbook.FullName
> ActiveWorkbook.Close False
> End Sub