Funktioniert, aber bitte bereinigen

Sub Abspeichern_neuer_Name()
'Dim TB As Worksheet
Liebe Leute,
zuerst erzeuge ich z.B. die Angebotsdatei 1234.xls.
Nun habe ich es irgendwie für mein Rechnungsschreiben hinbekommen,
die Angebotsnummer, den Kundennamen und die manuell vergebene Rechnungsnummer weitgehend  _
automatiesiert in den Rechnungsbetreff und in Zelle A6
(Z.B. 1234=Angeb-Nr_Max-Hoppe_Re-5678)
zu schreiben und mit dem Code unten eine Rechnung gleichen Namens
(also Z.B. 1234=Angeb-Nr_Max-Hoppe_Re-5678.xls) abzuspeichern.
Sicher ist der Code aufzuräumen, ich verstehe aber zu wenig davon.
Auch würde ich gerne gleichzeitig diese Angebotdatei 1234.xls gleichzeitig automatisch schließ _
en lassen und
automatisch die neu erzeugte Rechnung 12345=Angeb-Nr_Max-Hoppe_Re-5678.xls öffnen...  um Zeit  _
zu sparen.
Tipps?
Dim dName$
Dim DatName As String
'in Zelle A6 gespeicherter neuer DateiName wird in Variable DatName geschrieben:
DatName = ActiveWorkbook.Worksheets(1).Range("A6")
dName = ThisWorkbook.Path & "\Rechnungen\" & Range("A6") & ".xls"
'habe ich abgeleitet aus: dName = ThisWorkbook.Path & "\RECHNUNGEN\" &
'                   TB.Range("k19") & "=Ang-Nr" & "_" & Range("A4") & ".xls"
ActiveSheet.Copy
'ActiveSheet.Buttons(1).Delete
ActiveWorkbook.SaveAs dName
ActiveWorkbook.Close savechanges:=False
End Sub