Добрый день
Имеется макрос, позволяющий находить на листе объекты с именем Table1 или Table321 итд и переименовывать их в Table.
Подскажите, пожалуйста, как нужно доработать макрос, чтобы он:
1) позволял искать таблицы по всей книге
2) в одном коде можно было бы ввести названия нескольких объектов для переименования (не только Table1, но, например, List1), количество объектов конечное, не более 10 на книгу
| Код |
|---|
Sub Макрос1()
Const myName As String = "Table"
Dim myTable As Excel.ListObject
For Each myTable In ActiveSheet.ListObjects
If InStr(myTable.Name, myName) = 1 Then
myTable.Name = myName
Exit For
End If
Next myTable
End Sub |
С уважением,
