If dc.Count > 5001 Then
MsgBox "Для фильтра по этой колонке через выпадающий список" & vbCrLf & _
"превышен лимит здравого смысла (записей больше 5000)." & vbCrLf & vbCrLf & _
"Воспользуйтесь способом -" & vbCrLf & _
"через контекстное меню 'Фильтр по выделенному'", , "Внимание"
Else
s = Join(dc.Items, "|")
End If
|