Здравствуйте! Заинтересовал вопрос как проверить ячейку на наличие выпадающего списка через макрос. Вернее, как проверить я знаю примерно, мне нужно написать макрос, который последовательно бы сообщал для выделенного диапазона, есть ли в ячейке выпадающий список или нет. Идея была такая:
Код |
---|
Sub WhereDrop()
On Error GoTo Iferr
For Each cell In Selection
If cell.Validation.Type = 3 Then
MsgBox "Есть выпадающий список"
GoTo nextcl
End If
Iferr:
MsgBox "Нет выпадающего списка"
nextcl:
Next cell
End Sub |
Вроде, поначалу работает, но начинает глючить на 4 шаге, что не так делаю, не могу понять????