Comment envoyer une pièce jointe au format xls au

Sub Send1Sheet_ActiveWorkbook()
'Create a new Workbook Containing 1 Sheet (left most) _
'and sends as attachment.
 
    ThisWorkbook.Sheets(1).Copy
    
    With ActiveWorkbook
         .SendMail Recipients:="dump@ozgrid.com", _
          Subject:="Try Me " & Format(Date, "dd/mmm/yy")
         .Close SaveChanges:=False
    End With
    
End Sub

Sub RouteActiveWorkbook()
    With ActiveWorkbook
       .HasRoutingSlip = True
           With .RoutingSlip
                .Delivery = xlOneAfterAnother
                .Recipients = Array("dump@ozgrid.com", _
                    "ok@ozgrid.com", "zach@ozgrid.com")
                .Subject = "Check This Out"
                .Message = "Please fill in the Workbook and send it on."
          End With
        .Route
    End With
End Sub