Новая книга Excel с произвольным именем - VB

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

Может быть уже кто-нибудь научисля создавать новую книгу Excel с именем отличным от КнигаXX?

Решение задачи: «Новая книга Excel с произвольным именем»

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

                            <font color="blue">Function</font> NewBook(<font color="blue">name</font> <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> Workbook
  <font color="blue">Dim</font> file <font color="blue">As</font> <font color="blue">String</font>, b <font color="blue">As</font> Workbook
  file = Environ(<font color="teal">"Temp"</font>) & <font color="teal">"\"</font> & <font color="blue">name</font>
  <font color="blue">Set</font> b = Workbooks.Add
  Application.DisplayAlerts = False
  b.SaveAs file
  Application.DisplayAlerts = True
  b.<font color="blue">Close</font>
  <font color="blue">Set</font> NewBook = Workbooks.Add(file)
<font color="blue">End</font> <font color="blue">Function</font>
                        