Send vedhæftet fil som E-mail fra kode i anden exel fil

Jeg har selv fundet løsningen, her er hele filen.

Sub Send_email()
  Dim Tekst As String, Titel As String, Svar As Integer
        Tekst = "Vil du sende den til revisor?"
        Titel = "Bekræft Handling"
        Svar = MsgBox(Tekst, vbYesNo, Titel)
       
        If Svar = vbYes Then
        Else
                 
        If Not DBoksOK Then Exit Sub
        End If
  Application.ScreenUpdating = False
  Workbooks.Open Filename:="C:\revisor\kassebog-send.xls"
  '****************************Herfra*************************************************
    ActiveSheet.Unprotect
    Range("IV1").Select
    ActiveWindow.ActivateNext
    Sheets("Oplysninger").Select
    [B3].Copy
    Sheets("Firma").Select
    ActiveWindow.ActivateNext
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
        :=True
    Application.CutCopyMode = False
    Range("A4").Select
  '*****************************Hertil************************************************
  If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
        .SendMail _
        Recipients:=Range("IV1"), _
        Subject:="her skal subject stå"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
End If
     
  ActiveWorkbook.Save
  ActiveWorkbook.Close
 
End Sub