Tabellenblatt per Mail versenden

Private Sub CommandButton1_Click()
Dim Empfänger As String
Empfänger = InputBox("Geben Sie den Empfänger der E-Mail ein!")
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\" & Range("C19").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Range("C19").Value
ActiveWorkbook.Close savechanges:=False
End Sub

an der Stelle wo die Datei gespeichert werden soll, kommt die Meldung "Anwedungs- oder objektdefinierter Fehler". Wo liegt denn das Problem?
Für sachdienliche Hinweise herzlichen Dank.
Gruss
Gunter