Как сохранить макрос в личную книгу макросов или сделать из него надстройку?

[Alena0501]

У меня есть макрос сбора книг в одну. Работает только при условии размещения его в текущей книги. При попытке сделать его доступным для всех книг, выдает ошибку. Помогите, пожалуйста. Макрос рабочий, и использую часто, это у него для меня единственный недостаток. Нашла его где-то в интернете, возможно даже и на данном форуме.
Вот сам макрос:

Sub CombineWorkbooks()
    Dim wb As Workbook, Nm As String, i As Integer, j As Long
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True: .Title = "Files to Merge": .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        For i = 1 To .SelectedItems.Count
            Set wb = Workbooks.Open(Filename:=.SelectedItems(i))
            Nm = Replace(wb.Name, ".xls", "")
            On Error Resume Next: ThisWorkbook.Sheets(Nm).Delete: On Error GoTo 0
            ActiveSheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = Nm: wb.Close False
            With ActiveSheet.UsedRange
                For j = .Row + .Rows.Count - 1 To 1 Step -1
                    If Rows(j).Text = "" Then Rows(j).Delete
    Next: End With: Next: End With
End Sub

[VictorM]

Как сохранить макрос в личную книгу макросов

Поместите его в модуль книги PERSONAL.XLS
Если такой книги у Вас пока нет, запишите любой мкарос, хоть 2х2 с сохранением в Личной книге макросов, сохранитесь.
В дальнейшем, при открытии любого документа Excel Вы увидите в редакторе VBA эту книгу.
Вот в нее и помещайте все макросы общего назначения.

[VictorM]

или сделать из него надстройку

Сохраните пустой файл с этим макросом Как надстройка *.xla
Поместите в папку XLSTART.
Теперь он будет запускаться при открытии любого файла Excel

[Hugo121]

В этом коде идёт обращение к ThisWorkbook, т.е. если поместите в Персонал, то в Персонале и будет листы удалять и добавлять.
Нужно код чуть переделать - дописать в начале (до открытия другой книги) типа
Dim wba As Workbook
set wba = ActiveWorkbook
потом вместо ThisWorkbook использовать wba.

[Alena0501]

при переносе не работает! выдает ошибку
Run-time error '1004':
Метод Copy из класса Worksheet завершен неверно

[Hugo121]

Мой совет попробуйте.

[Alena0501]

Hugo121 огромное вам спасибо!
исправила, все работает!
отдельное спасибо за оперативность!

[VictorM]

Мой совет попробуйте.

Да, совершенно верно, я не смотрел код макроса, просто описал процедуры

Как сохранить макрос в личную книгу макросов или сделать из него надстройку?

[Alena0501]

Всем большое спасибо!
Я данный форум читаю давно, спросила в-первые.
Еще только учусь разбираться...

[Hugo121]

Потому я и не давал исправленыый код. Потому что учитесь