Kode som sendes til den e-mail adresse der står i A1

Kan man ikke lave sådan at man, i følgende kode, i stedet for at sende filen til e-mail adresse som står i koden, sender til den e-mail adresse der står i celle A1 i mappen.


If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
        .SendMail _
        Recipients:=Array("xxxx@xxxx.dk"), _
        Subject:="her skal subject stå"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If