Nombrar correo electrónico

Buenas tardes
Cree un pequeño programa con algunos macros para excel
Mediante un botón de comando este programa tengo una macro que es este.
Sub enviarhojadiafelix()
'
' enviarnoconformidad Macro
' Macro grabada el 04/08/2007 por Enfymeca
Sheets("HOJA DIARIA ENVIO ANTONIO").Activate
Range("A1:V49").Select
Dim wb As Workbook
Dim strdate As String
Dim stEmail As String
strdate = Format(Range("R2").Value, "dd-mm-yy")
strEmail = "[email protected]"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Name & "..Hoja Diaria de Trabajo del dia . " & strdate & ".xls"
.SendMail strEmail, "Archivo Adjunto"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
Entonces el macro me selecciona la hoja de excel donde están los datos que debo enviar y los envía mediante outlout. Hasta aquí todo bien, pero quisiera que
"En el aparatdo "asunto" del correo que voy a enviar no ponga archivo adjunto sino que ponga el valor de la celda que me interesa"
Para sacar el valor de la celda uso = Format(Range("R2").Value, "dd-mm-yy") y mediante ese comando el dato adjunto me pone la fecha, pero quisiera que me pusiera también la fecha en "ASUNTO".
mUCHAS GRACIAS