Можно ли сохранить активнй лист новой книгой - VB

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

Суть есть книга с кучей листов которые нужно сохранить каждый как отдельную книгу.
Вариант скопировать текущий лист\создать новую книгу\вставить скопирований лист и сохранить
как-то не то что надо.

Range().
    Selection.Copy
    Workbooks.
    ActiveSheet.Paste
    Application.CutCopyMode = 
    ActiveWorkbook.SaveAs Filename:= _
         _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=
    ActiveWindow.

и выглядит некрасиво
а можно как-то:
текущий лист сохранить как книгу с одним листом соответствующим текущему активному листу?

Решение задачи: «Можно ли сохранить активнй лист новой книгой»

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

                            <font color="blue">Dim</font> MySheet <font color="blue">As</font> WorkSheet
<font color="blue">For</font> <font color="blue">Each</font> MySheet <font color="blue">In</font> ThisWorkbook.Worksheets
  MySheet.Copy
<font color="blue">Next</font>
                        