Mail mit Kopie und Blindkopie

mit folgendem Makro versende ich das aktive Blatt als Mail

Sub Blatt_verschicken()
' Das aktive Blatt wird in eine neu erzeugte Mappe gestellt
ActiveSheet.Copy
With Application
.Dialogs(xlDialogSendMail).Show _
"Mailadresse, Mailadresse", _
"Transport", True
.DisplayAlerts = False
End With
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

aber wie bekomme ich es hin, wenn ich noch eine weitere Mailadresse als Kopie und noch eine weitere als Blindkopie mit eingeben möchte ?

Gruß Peter