Navngivning af ark, der sendes som vedhæftet fil fra makro

Fra en projektmappe med mange ark sender jeg et af arkene som vedhæftet fil til en mail på nedenstående vis.
Spørgsmål: Kan jeg selv bestemme navnet på den vedhæftede fil?
(så den ikke bare kommer til at hedde mappe1.xls)

ActiveSheet.Copy
    With ActiveWorkbook
    .SendMail Recipients:=Array(adr, cc1, cc2), _
    Subject:="Dagsordre"
    .Close SaveChanges:=False
End With