Mail with macro Excel 2010

Hey Here is the code ,
Code:

Option Explicit

Sub Dave()

Dim strDate As String

        Range("B8").Value = "61000"
           ActiveSheet.Copy
             strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
                ActiveWorkbook.SaveAs "Test Stockholm" & ThisWorkbook.Name _
                   & " " & strDate & ".xlsm", FileFormat:=52
                ActiveWorkbook.SendMail "your.email@gmail.com", _
                "Test Bonus "
             ActiveWorkbook.ChangeFileAccess xlReadOnly
          Kill ActiveWorkbook.FullName
        ActiveWorkbook.Close True

End Sub