Свойство Author используется для чтения или установки имени автора рабочей книги. Кроме того, данное свойство применяется в программе установки для регистрации пользователя. После создания используемых в приложении рабочих книг, задайте имя автора рабочей книги с помощью свойства Author:

Sub Name_Those_Workbooks ()
Dim registration_name As String
     ' По умолчанию имя пользователя равно значению свойства
     ' Application.UserName
     registration_name = InputBox(" Введите свое имя или название вашей фирмы : ", _
           "Регистрация ", default := Application.UserName)
     ThisWorkbook.Author = registration_name
     MsgBox " This application has been registered to " & ThisWorkbook.Author
End Sub

---

Совет : чтобы установить значение по умолчанию равное названию фирмы, можно использовать свойство Application. OrganizationName.

Для комментария : kadan@grsu.grodno.by