Здравствуйте. Мой вопрос очень примитивный, но я в тупике. Есть потребность привязать выполнение процедуры к имени книги. Имя может меняться. Неизменной всегда остаётся только одно слово "Отчёт". Варианты имён: "Отчёт", "аываОтчёт", "ававОтчёт_ыавыа", ... Мой код почему-то не работает. Основной код я заменил на msgbox.
Код
dim wbn as string
wbn = ActiveWorkbook.Name
Select Case wbn
Case wbn = "*Отчёт*"
MsgBox "Это отчёт"
Case wbn <> "*Отчёт*"
MsgBox "Это НЕ отчёт"
End Select
Function WbNameExists(Optional wb As Workbook = Nothing, _
Optional What$ = "*ОТЧ?Т*") As Boolean
If wb Is Nothing Then Set wb = ActiveWorkbook
WbNameExists = UCase(wb.Name) Like What
End Function