Makro, Blätter bleiben aktiviert

Sub A_Save_abs()
Dim TB As Worksheet
Dim dname As String
ActiveWorkbook.Save
Application.ScreenUpdating = False
dname = "D:\Reports\KPI_Mail\KPI_Total_Value.xls"
For Each TB In Worksheets
TB.Cells.Copy
TB.Cells.PasteSpecial Paste:=xlValues
Next TB
ActiveWorkbook.SaveAs dname
Application.CutCopyMode = False
Range("A1").Select
End Sub

Das funktioniert auch schon seit Jahren sehr gut - nur ich habe ein Problem:
Am Ende des Makros sind die Blätter alle komplett selektiert/markiert.
Wie mache ich es, dass die Blätter danach nicht selektiert sind und möglichst alle in Zelle A1 stehen?
Vielen Dank und Gruß Lutz