Mail with macro Excel 2010

hi Santors
please edit yr post adding [] before yr first line of code and [/] after tle last line. add the word code in between

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