Simpan file sekaligus mengganti dan menghapus file lama

Bagaimana menyimpan file baru dengan macro dan mereplace file lama yang namanya sama.

contoh file baru disimpan dengan nama book2.xlsx, padahal mungkin file lama sudah ada difolder tersebut dengan nama yang sama.

Dim Wk As Workbook

If Dir("C:\book2.xlsx") <> "" Then
Kill "C:\book2.xlsx"
Else 'http://mymacrosformula.blogspot.com/
End IfSet Wk = Workbooks.Add
Application.DisplayAlerts = False
Wk.SaveAs Filename:="C:\book2.xlsx"
 Catatan : file diatas yang sering diganti ganti sangat berguna sekali untuk perhitungan sementara. file seperti biasanya saya gunakan untuk mengecek total dan subtotal perhitungan mendatar menurun dan lainnya. kalau sudah benar perhitungannya. file tersebut digunakan untuk perhitungan lainnya tanpa harus dihapus.