Сохранение книги с заменой имени на другое - VBA

Формулировка задачи:

Здравствуйте! Возникла такая нужда. Чтобы открытую книгу с данными сохранять в том же месте, но под другим именем. Например открыта книга с названием vvv, её нужно закрыть и сохранить с названием xxx, при этом книгу vvv удалить(чтобы её не было, а превратилась в xxx) я вот такой макрос напаял:

ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path + "\xxx.xls"

но он копирует рядом файл xxx. а файл vvv остаётся на месте, а нужно что бы его не было больше.

Решение задачи: «Сохранение книги с заменой имени на другое»

textual
                            Листинг программы 
                        

                            iFileName$ = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\xxx.xls"
Kill iFileName$
                        