Сообщение об ошибке выглядит следующим образом:
Run-time error '-2147417848 (80010108)'
Automation error
Вызванный объект был отключен от клиентов.
Происходит это в следующем отрывке кода:
- Код: Выделить всё
- With Worksheets("Заказы (Д)")
 .Names.Add Name:="spisok_imenD", RefersToR1C1:="=R6C50:R" & CStr(5 + M) & "C50"
 End With
 With Worksheets("Заказы (Д)").Columns("F:F").Validation
 .Delete
 'ОШИБКА ПРОИСХОДИТ ПРИ ВЫПОЛНЕНИИ СЛЕДУЮЩЕГО ОПЕРАТОРА'
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=spisok_imenD"
 .IgnoreBlank = True
 .InCellDropdown = True
 .InputTitle = ""
 .ErrorTitle = ""
 .InputMessage = ""
 .ErrorMessage = ""
 .ShowInput = True
 .ShowError = True
 End With
По сути в этом отрывке должно происходить следующее:
Берем некоторый диапазон, присваиваем ему имя, а потом используем как условие проверки значения в ячейке с выпадающим списком.
Всем заранее огромное спасибо!


