Using a cell value as the subject line

[Qaspec]

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

 

[Vasant Nanavati]

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